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ABSTRACT 

This thesis is, in part, based upon the work of Lieutenant 
Commander Isidore L'Artique Tobin III, Supply Corps, United States 
Navy, as set forth in his thesis: "Management Games as an Academic 

and Military Instructional Device," University of Kansas, 19&5- 
This computer programed simulation is a departure from the plans 
and flow charts as set forth in his thesis, but many of the ideas 
developed in his work were used in the preparation of this model. 

It would probably not have been possible to complete this model if 
his work had not already been available to draw upon. 

Other very helpful information and experience was received 
from the study of and the participation in the ITLAGINIT Management 
Game which is a creative business decision simulation developed by 
Dr. Richard F. Barton, Professor in the School of Business, 
University of Kansas. 
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CHAPTER I 



INTRODUCTION 

Background 

The construction of any entity, whether it is a large building, 
a rocket or a literary xvork, should not commence until the necessary 
groundwork or foundation has been prepared-. The groundwork for this 
thesis is begun by quoting a few definitions from the Funk and V/agnell 
Standard Dictionary of the English Language. The first definition is 
of the work "system" which is given as "an orderly combination or 
arrangement, as of parts or elements, into a whole; specifically, 
such combination according to some rational principle." The next 
definition is of the word "simulate: and is stated as "to assume or 
have the appearence or form of, without the reality." The last word, 
"model", is defined as "that which strikingly resembles something else; 
an approximate copy or image." One might then define the simulating or 
modeling of a system as the creating of another orderly arrangement of 
parts that gives the appearence or image of the simulated or modeled 
system. This would not mean that it is necessary for the model to be 
a physical replica, but it would mean that the new system should react 
or respond to the same stimuli in a manner similar to the one being 
modeled. To obtain this reaction or response is the crux of dynamic 
real life system simulation. 
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Computer Program Model Building 

Model building or simulation dates back before the days of the 
Egyptians.^ Until World War II most models were rigid physical replicas 
normally on a smaller scale. During and after World War II it became 
possible to model dynamic systems of real life events without physical 
likenesses. This was brought about by the development of the high speed 
computer. The system to be simulated is modeled in mathematical equation 
form and, utilizing the theory of probability and random selection, 
events in a dynamic system can be simulated. 

The computer utilizes the mathematical equations, together with 
added data, and processes a very large number of operations on them in 
a small amount of time. This permits the model to function over a long 
period of simulated time in a very short period of actual time. Reports 
of situation status or feedback can also be obtained and through analysis 
it can be determined in what manner the system model reacted to a certain 
stimulus. This technique is particularily useful during the building 
phase of the model. 

Use of Computer Program Models 

Computer program models are basically used for two purposes. Cne 

purpose is to discover methods and means to improve a system and the 

other is to utilize the model for training personnel in becoming 

2 

familiar with the system. It should be kept in mind that the word 
system has been used in a broad sense. 

Purpose 

This thesis is the result of an attempt to model a system which 
is an industry of independent oil companies. It is hoped that the 
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simulation will provide a tool for the training of students of Petroleum 
Engineering and of Petroleum Management in the areas of reservoir engi- 
neering and financial management. It is expected that the simulation 
will subject the student to a real life situation in which he will be 
required to analyze both engineering and financial data, make decisions 
based upon the results of his analysis, and live with the results that 
are reflected by the grades given by the model administrator. It is 
hoped that the use of this simulation will also stimulate the student's 
desire to obtain a more thorough knowledge of his speciality area than 
if the simulation had not been used. This stimulation might be accom- 
plished by the gaming aspect of the model and the creation of a compe- 
titive atmosphere by the model administrator. 

Model Description 

General 

9 

The model is generally divided into three parts: lease owner- 

0 

ship determination, lease development and production, and lease and 
company accounting. The first part, lease ownership determination, 
resolves which of the companies have purchased leases, which of the 
companies have sold leases and which of the companies have reverted or 
abandoned leases. The second part processes the development phase of 
a purchased lease as to drilling, fracturing, etc. and computes the 
production of oil and gas from each producing lease. The third part 
uses this output to calculate dollar amounts and performs the lease and 
company bookkeeping. 
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Beginnir- ^ Procedure 

To set the stage for the detailed description of the model as 
depicted in the following chapters, it is felt that a brief description 
of the beginning procedure would be approoriate. 

As presently programed, the simulation allows a maximum of five 
participating companies. The students of a class are divided into a 
maximum of five groups with each group working together as a company. 

Each student is given a Student’s Pamphlet which is outlined as part 
of Chapter V. The pamphlet contains a general description of the model, 
procedures to be followed, a list of decisions to be made, a set of 
lease descriptions, a set of engineering study descriptions and the 
format for the decision input cards. Each student is also given a list 
of the leases available for sale, an initial lease owner's report and 
an initial income statement and balance sheet. All companies start 
with the same amount of capital as indicated on the balance sheet. 

The amount of beginning capital is at the discretion of the model 
administrator. 

It is necessary for the model administrator to assign various 
parameters to the control program. These parameters consist of the 
simulated period length, fines and penalties, interest on bonds and 
loans, and others, A list of these parameters with some recommended 
values are given in the Model Administrator's Pamphlet which is also 
outlined in Chapter V. 

The program is written in FORTRAN IV computer program language and 
was initially modeled on an IBM 7040/7044 Operating System. The Fortran 
statements and the description of the variables used are set off from the 
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text by dashed lines for clarity. The text adjacent to the Fortran state- 
ments explains the reasoning used in writing the statements as they are 
written and explains their purpose in the program. The next three 
chapters are written in this detailed manner in order that individuals 
who would like to understand the programs calculations, as a model 
administrator or as a future developer of the program, may thoroughly 
understand the methodology and the rational utilized to build the model. 



CHAPTER II 



LEASE OWNERSHIP DETERMINATION 
Lease Bidding 

The first part of the programed model establishes the ownership 
of the leases. Establishing ownership is necessary before pursuing the 
development and production and the accounting parts of the simulation 
in order that each company's accounting can be carried out properly 
throughout the rest of the program. 

Competitive Bidding 

The lease bidding simulation is processed as a closed bid 
competitive system of bidding that is common to real life bidding on- 
property and contracts. Leases are offered for sale by the model 
administrator as indicated in the previous chapter. Companies are 
allowed a maximum of eight leases to bid on for each simulated time 
period. 

Each company's bid is read from two input cards prepared by 
the company. Since this is closed bidding situation, bids of a company 
are not to be disclosed to other companies. 



DO 130 I = ljNPLAY 

READ (5,11) (BID(I, J ,1) , J=l,8) 

READ (5,11) (BID(I,J,2), J=l,3) 



Where: NPLAY = number of companies participating 

BID(I,J,l) = lease numbers of leases that bids are being made on 
BID(I,J,2) = amount of money bid for the lease 
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On the first card all of the lease, numbers of the leases to be 
bid upon are punched in the proper format. This format is given in the 
Student's Pamphlet which is part of Chapter V. On the second card are 
listed the amounts of money being offered as a bid for the correspond- 
ing leases on the first card. 

Bids for Available Leases 

The next operation for determining lease ownership is the 
picking of the first lease available for sale. 



IF (LEASE(II) .GT.O) GO TO 200 
200 TEMP = LEASE (II) 

Where: LE4.SE = array holding list of available leases 

TEMP = a temporary holding space 

If LEASE(II) contains a number other than zero, the number is 
the number of a lease that is available for sale. II will actually be 
the lease number that should be there if all leases are available for 
sale. The lease number is then converted to a floating point variable 
and stored in TEMP. 

The program now checks each company’s bids to determine if a 
company has bid and if the bid is on this particular available lease. 



DO 201 I = ljNPLAY 
DO 202 J = 1,3 

IF (BID(I, J,l) .LT.0.01) GO TO 202 

IF ( BID ( I , J , 1 ) . EQ. TEMP . AMD . MC HEC K . EG . 0 ) GO TO 22^ 

IF (3ID(I, J,l) .EQ.TEM?) GO TO 203 
GO TO 202 

Where: NO HECK = a fixed point variable used to determine if the lease 

in question has been bid upon by a previous company 
during this simulation period 
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Determination of a Lease Buyer 

If a company has not bid upon the lease, the program goes to the 
next company and repeats the procedure until all of the companies’ bids 
have been checked. If one or more companies have bid on the lease, the 
first company's bid is detected by NCHECK = 0. 



224 IF ( BIDMEN . GT . BID ( I , J , 2 ) ) GO TO 201 
H0LD2 = BID(I,J,2) 

NEQUAL = 1 
IDENT(L) = I 
NCH3CK = 1 
GO TO 202 

Where: HOLD 2 = a temporary holding space for the bid amount 

= the number of equal bids on a particular lease if any occur 
IDEWT(L) = array holding the identity- of the companies making equal 
bids 

BIDMIN = the minimum acceptable bid set for the lease 



The program checks to see if the bid amount is larger than the 
minimum bid acceptable for the lease if one is given. If the bid is less 
than the minimum bid, the bid is rejected and the program goes on to the 
next company. If it is greater than or equal to the minimum bid, the 
amount bid is stored in the temporary storage space called H0LD2, NEQUAL 
is set equal to one, the first storage space in the identification array 
is set equal to the company number making the bid, and NCHECK is set equal 
to one. 

The program now proceeds to check the remaining companies' bids 
to determine if they have bid on the lease. If any other companies have, 
the program picks out the highest bid. 
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203 IF ( BID ( I , J , 2 ) . GT . H0LD2 ) GO TO 206 
IF (BID(I,J,2).NE.HCLD2) GO TO 201 
NEQUAL = NEQUAL + 11 
IDENT( NEQUAL) = I 
GO TO 201 



The first statement tests to detect if the new bid is greater 
than the previous bid made on the lease in question. If it is, the 
previous bid is replaced by the new bid. The new bid is disregarded 
if it is less than the previous bid. If the new bid is equal to the 
previous bid, in the third statement one is added to NEQUAL to indicate 
that two companies have bid equally on the same lease and in the fourth 
statement the identity of the bidding company is stored in the next 
storage space of the identity array. 

Once all of the bids have been checked, and only one company 
has bid the highest bid, the program proceeds to assign that lease to 
the company. If no bids have been made on the lease, the next available 
lease is selected and the process is repeated. 



IF (NEQUAL. EQ.l) GO TO 210 

IF ( N EQUAL . EQ . 0 . AND . NDSAL . EQ . 0 ) GO TO 189 

IF (NEQUAL. EQ.O. AND. NDEAL. EQ.l) GO TO 199 

Where: NDEAL = an indicator to tell the program that a sale is being 
made between two companies 



If there has been one or more bids on the lease, HOLD2 will hold 
the amount of the highest bid and the array IDENT will contain the 
identity of the company or companies making the highest bid. 

When two or more companies have made equal bids that are the 
highest bids made, the winning company is selected by a random drawing. 
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209 CALL RANDNO (RNUM) 

X = 0.0 
Z = NEQUAL 

Y = 1.0/Z 
T = Y 

• DO 207 I = 1, NEQUAL 
IF (RNUM. GT . X. AND . RNUM. LT . Y) GO TO 208 
X = Y 

Y = Y + T 

IF (Y.GE.1.0) GO TO 209 
207 CONTINUE 
203 I = IDENT(I) 

Where: RANDNO = a subroutine to generate -evenly distributed random numbers 
between zero and one 
X = lower limit of each increment 

Y = upper limit of each increment 

T = the increment 

Z = transfers a fixed point variable to a floating point 

variable 

RNUM = the random number 



A randon number is called from the subroutine RANDNO and is divided 
into as many equal parts or increments as there are equal bidding companies. 
The random number is compared to each increment and the increment in which 
the number falls will determine the winning company. 

Now that the winning bidder has been established, the program 
pi'oceeds to assign the company as lessee. It then removes the lease 
number from the list of available leases. 



212 LEESES(I,J) = TEMP 
LEASE (II) = 0 

'Where: LESSEE(I,J) = an array that holds the identity of the leases that 

a company owns 
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The month of purchase is stored in the array UPDATE for future reference. 



UPDATE (II) = ME3ES + 1 
INTAI'IG(II) = HGLD2 - TANG (II) 

Where: H0LD2 = the original bid amount 

NPDATE(II) = the date of purchase 

INTANG(II) = the intangible assets 

TANG(II) = the tangible assets assigned to the property 

DIESES = the total amount of time simulated 



The intangible assets will be equal to the amount paid for the lease less 
the tangible assets, if any, which will have previously been assigned. 

It might be noted that lease characteristics are identified in the 
characteristic array by lease number whose value is stores as (II). 

Selling of Leases by a Company 

The companies are also allowed to sell leases to each other but 
not to the model administrator. The program first ferrets out a company 
desiring to sell a lease. 



DO 231 I = 1,N?LAY 
DO 232 J = 1,8 

IF ( BID ( I , J , 1 ) . LT . ( -0 . 01 ) ) GO TO 233 
GO TO 231 

233 II = -BID(I, J,l) 

Where: II = number of the lease to be sold 



When a company desires to sell a lease, a negative bid is made on 
the same card that normal bids for leases are made on. The minimum bid 
that is acceptable to the seller is punched into the second bid card 
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where normally the bid amount for leases sold by the administrator is 
punched. If a private deal is desired, the deal must be kept between 
the two parties involved in the deal as the program will recognize all 
bids on a lease. Bidding for leases that are for sale by companies, 
whether public or private, will be accomplished in the same manner as 
bidding for leases that are for sale by the model administrator. 

The program next checks to insure that the company attempting to 
sell a lease actually owns it. 



DO 234 K = 1 , MAXOWN 
IF (II.EQ.LESSEE(I,K) GO TO 235 
234 CONTINUE 
GO TO 236 



236 PENSEL(I,2) = PENS5L(I,2) + FINE 
PENSEL(l,l) = -BID(I,J,1) 

Where: MAXOWN = the maximum number of leases a company may own 

PENSEL(I,l) = the number of the unowned lease a company is 
attempting to sell 

PENSEL(I,2) = the total amount of selling fines for a company 
FINE = the amount of penalty or fine 



If a company does not own the lease it is attempting to sell, a 
fine will be imposed upon that company for making the attempt. This 
fine is a parameter set by the game administrator. A written notice will 
also be printed in the remarks section of the company balance sheet for 
that period. 

Objective of Lease Bidding 

Lease bidding is thought to be an important part of this model, 
because it is expected to spur the student to use his ability, or to 
acquire the ability to analyze both financial and engineering data. 
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It is necessary for the student to make a good analysis of the data in 
order that companies can make vise bids. Certainly a company may take 
a wild guess and have it turn out to be a good decision. It is thought, 
however, that such companies will lose their capital and go bankrupt. 

The penalty or fine aspect of selling leases was included in an 
attempt to prevent the students from trying to foil the simulation by 
selling a lease they do not own, whether it might be for extra capital, 
or it might be to injure another company. 

Lease Reversion and Abandonment 

At certain times and under certain circumstances oil companies 
may decide to give up a lease that they have purchased and can find no 
market for it. There are two other methods by which a company can 
dispose of an undersirable lease: reversion of the lease to the land- 

owner or by properly abandoning the lease. Farmouts will be discussed 
later. 

Lease Reversion 

An oil company might wish to revert a lease for any number of 
reasons. One reason might be that the company does not have sufficient 
funds or credit available to develop a lease within the lease period. 

It may then revert the lease to the landowner to reduce expenses. 

Another reason might be that the area around the lease has been tested 
with negative results which has reduced the chance that oil or gas may 
be found on the lease. The company may have brighter prospects for its 
capital and therefore decides not to invest in a development veil. 

In the program a company is allowed to revert a maximum of four 
leases per simulated time period. The lease number of the lease that is 
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to be reverted is ounched in the proper field and read into the program. 



READ (5,11) (RVSRSN(I,J), J=l,4) , (ABAND(I, J) , J=l,4) 



DO 241 I =1, NPLAY 
DO 241 J = 1,4 

IF (RVER3N(I,J) .LT.0.01) C-0 TO 241 
II = RVERSN (I, J) 

IF (NWELLS(II,2).GT.O) GO TO 241 
DO 244 K = 1 , MAXOWN 
IF (LESSEE(1, J).EQ.II) GO TO 2^5 
244 CONTINUE 

Where: RVERSN(I,J) = lease number of lease desired to be reverted 
NWELLS(II,2) = number of wells on the lease to be reverted 



The program first checks the reversion entries of the companies. 
If a lease number is detected, ownership is checked to insure that the 
company attempting to revert the lease actually owns the lease. It then 
determines if there are wells on the lease. If there are, the request to 
revert is ignored, for the lease must be abandoned and not reverted. 

When there are no T wells on the lease, and the requesting company owns the 
lease, the program reverts the lease to the model administrator without 
cost. The lease is then put back on the list of available leases for 
sale. 



245 LEASE (II) = II 
RVERSN ( I, J) = 0.0 
LES3EE(I,K) = 0 



If a company attempts to revert a lease that it does not own 
in an attempt to take advantage of the model or another company, the 
program ignors the request, fines the company, and prints out a note in 
the remarks section of the company’s balance sheet. 
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243 PENRVT (1,2) = PENRVT (I, 2) + FINE 
PENRVT (1,1) = RVER5N(I,J) 

RVERSN(I,J) = 0.0 

Where: PENRVT(I,l) = the array holding the lease number attempted to 

be reverted 

PENRVT(I,2) = the array holding the total amount of fines for 
attempting to revert leases not owned 



The fine is the same parameter as mentioned previously in the 
section on selling leases. 

Lease Abandonment 

Economic consideration is probably the main reason an oil 
company X'rould desire to abandon a lease. Either the lease did not 
prove economically feasible during the development stage, or the lease 
has reached its limit of depletion from production. The difference 
between abandoning a lease and reverting a lease is that a lease with 
wells must be abandoned. The wells must be closed in and the property 
restored to its original condition, and the company must bare these 
costs. The lease being reverted has no wells or property damage and 
therefore no extra costs. 

Each company is allowed to abandon a maximum of four leases per 
simulated time period. The lease numbers of the leases that are to be 
abandoned are punched into the lease abandonment request card beginning 
with the left most field. The abandonment entries are read in just 
after the reversion entries. 



READ (5,11) (RVERSN(I, J) , J=l,4) , (ABAND(I, J) , J=l,4) 
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DO 251 I = 1,NPLAY 
DO 252 J = 1,4 

IF (ABAND(I, J) .LT.O.Ol) GO TO 25I 
II = ABATED ( I , J ) 

DO 253 K = 1 , MAXOWN 
IF (LE3SEE(I,K) .EQ.LL) GO TO 254 
253 CONTINUE 

Where: ABAND(I,J) = the array holding the requests for lease abandonment 



After the program checks through the request for abandonment 
entries and finds a lease number, it insures that the company requesting 
the abandonment of the lease actually owns the lease. If this checks, 
the program processes the abandonment request. 



254 ABDC0S(I,1) = II 

WELLS = NWELLS(II,2) 

ABDC03(I,2) = ABDC03(I,2) + WELLS * ABDNFT 

Where: ABDCOS(I,l) = the array holding the lease numbers of the leases 

on which the abandonment costs occurred 
ABDC0S(I,2) = the array holding the amount of abandonment costs 
TELLS = a floating point variable used to transfer a fixed 

point variable to a floating point variable 
ABDNFT = the amount charged per well upon abandonment 



The number of the lease to be abandoned is stored in the array 
ABDC03(I,l) and the abandonment costs for the lease are computed by 
multiplying the abandonment cost factor times the number of wells on 
the lease. The abandonment cost factor is a parameter assigned by the 
model administrator. 

If it is determined that a company has attempted to abandon a 
lease it does not own, a fine is awarded similar to the fines described 
in the selling and reverting of leases. 
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PENABD ( I , 1 ) = ABAND(I,J) 

PEKABD (1,2) = PENABD (I, 2) + FINE 
GO TO 251 

Where: PENABD (1,1) = the array holding the lease numbers of the leases 

that have had abandonment attempted 
PENABD (I, 2) = the array holding the amount of fines for attempting 
to abandon leases not owned 



First, the lease number upon which abandonment has been attempted 
is stored in the array PENABD(I,l). The fine is then awarded and the 
total amount is then stored in the array PENABD(I,2). FINE is the same 
parameter that was outlined in the section on selling leases. 

Objective of Lease Reversion and Abandonment 

Lease reversion and abandonment provides the companies with 
avenues to dispose of undesirable leases. It is expected that before 
a lease is reverted or abandoned, the student will analyze all 
available data in an attempt to determine if it is wise to give up 
the lease. This analysis should require the exercise of both his 
engineering and his financial management knowledge. 



CHAPTER III 



LEASE DEVELOPMENT AND PRODUCTION 
Labor 

Almost all of industry must deal with organized labor in some 
manner. To achieve a bit more realizm in this industry simulation, the 
effects of labor contracts and negotiation's have been included. 

Labor Contracts 

It has been assumed for this simulation that all of the 
independent oil companies’ labor forces have been unionized. The 
relationship between the company and the union is in either one of 
two states; either there is a contract in force or there is a period 
when negotiations are taking place. 

When the company and the union have a contract in force, the 
company can not alter the wage rate. 



IF ( REQP AY ( I ) . GT . 1 . 1 * P AY3 AS ) REQPAY(I) = 1.1 * PAYBAS 
IF (REQPAY(I).LT.o.9*PAY3AS) REQPAY(I) = 0.9 * PAYBAS 
IF ( RLABOR. GT. 0. l) REQPAY(l) = RLABOR 

Where: RLABOR = the parameter to control whether or not a labor 

contract is in effect 

PAYBAS = the parameter to control the basic wage rate 
REQPAY(I) = the array that contains the companies’ requests 
to change the labor wage rate 



As shown in the third statement above, when the parameter RLABOR 
is set at some value greater than one tenth, the companies' requests to 
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change the wage rate are nullified by setting them equal to the amount 
set in RLABOR. RLABGR is a parameter set by the model administrator and 
can be used to vary the sensitivity of the strike feature of the simula- 
tion. If an amount greater than PAYBAS is set into RLABOR, the 
sensitivity of the strike feature is decreased. If the amount is less, 
the sensitivity is increased. PAYBAS is another parameter set by the 
model administrator at the initial starting point of the simulation and 
it is not changed. 

A contract period is terminated and a negotiating period commences 
when the model administrator sets RLABOR equal to zero. The companies 
may then adjust their labor wage rate within ten per cent of the amount 
set in PAYBAS. If they attempt to set it higher or lower, the program 
will automatically assign it back to its related limit. By lowering the 
wage rate below the base rate, a company will increase the probability 
that it will have a strike. If it increases the wage rate above the base 
rate, the probability of a strike will decrease. 

The status of a labor contract, in effect or not in effect, per- 
tains to the whole industry and cannot be set for individual companies as 
the model is presently programed. 

Fringe Benefits 

Another aspect of reality concerning the management - labor 
relationship is the payment of fringe benefits. These fringe benefits 
may be payment of a certain sum into a retirement fund, payment of 
medical insurance premiums, or other similar items. In this simulation, 
fringe benefits are not frozen by a labor contract but they may be 
varied up or down at any time. 
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IF (BENFIT. GT.O.Oi) FRINGE(I) = BENFIT 



IF ( FRINGE ( I ) . GT . 2 . 0* BENBAS ) FRINGE (I) = 2.0 * BENBAS 

VJhere: BENFIT = a parameter to control the fringe benefit feature 
FRINGE(I) = array holding the companies' requests to change 
fringe benefits 

BENBAS = a parameter to set the base benefit rate 



The parameter BENFIT, set by the model administrator, may be in 
a similar manner as the parameter RLABOR was used for labor wages. If • 
BENFIT is set equal to zero, the companies T will be allowed to vary the 
payment of fringe benefits to its employees. The variation is limited 
to a minimum of zero and a maximum of twice the parameter BENBAS which 
is the basic fringe benefit rate set at the initial starting point by 
the model administrator. If BENFIT is set equal to the same amount as 
BENBAS, fringe benefits will have no effect upon the likelihood of the 
company taking a strike. As with RLABOR, if BENFIT is set lower than 
BENBAS, the probability of a strike will increase. If it is set higher, 
the probability will decrease. 

The effect of the variation of BENFIT upon the ability to vary 
fringe benefits or upon the sensitivity of a strike will be felt industry 
wide and cannot be set for individual companies as the model is presently 
programed. 

Labor Strikes and Their Effects 

Before development of the leases can be performed or the produc- 
tion of oil and gas can be accomplished, it must be determined if the 
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labor is available to carry out these tasks. If the labor unions have 
called a strike, no development or production will occur for a maximum 
of two months. If the simulated period length is less than two months 
the strike will last for only the period length. 



IF (ISTRIK.EQ.l. AND.JJ.LT. 3) GO TO 632 

Where: I3TRIK = is an integer variable representing the variable STRIKE 
JJ = the month number of the simulated period presently being 
run 



If a strike should occur, ISTRIK will equal one and the program 
merely bypasses the drilling and development routines. 

A strike will or will not occur depending upon the probability 
of a strike and random selection. The probability of a strike is 
computed by the comparison of the relative amounts of wages and fringe 
benefits that are being paid to the company’s employees. 

First, it is necessary to compute the average wage and the average 
fringe benefits paid in the industry. 



DO 300 I = 1,NPLAY 

IF (REQPAY ( I ) . GT . 0 . 1 ) PAY(I) = RSQPAY(I) 

IF (FRINGE(I) .GT.O.Ol) EMPBEN(I) = FRINGE(I) 
TEMP = TEMP + PAY ( I ) 



300 H0LD2 = HOLD 2 + EMBBEN(I) 
X = NPLAY 
PAYAVG = TEMP/X 
BENAVG = H0LD2/X 



Where: TEMP 
H0LD2 
PAY(K) 
EMP3EN(I) 



= a temporary holding variable 
= a temporary holding variable 

= the wage rate to be in force for this time period 
= the fringe benefit rate to be in for this time 
period 
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PAYAVG = the average employee wage rate for the industry 
BENAVG = the average fringe benefit rate for the industry 

X = changes a fixed point amount to a floating point 



In the second and third statements above, the new wage rates and 
new fringe benefit rates are set for the simulated period. If there is 
no change, the program will use the rate from the previous period which 
will have been stored in the arrays PAY(I) and EMPBEN(I). 

In computing the strike probability, which is represented by the 
variable STRIKE, the program first compares the wage and benefit rates 
with their respective industry averages. 



STRIKE = (1.0 - PAY ( I ) / PAYAVG ) + (1.0 - PAY(I)/PAYBAS) 

STRIK2 = (1.0 - EMPBEN ( I ) / BENAVG ) + (1.0 - EMPBEM ( I ) / BENBA3 ) 
STRIKE = (STRIKE + STRIK2) * STKFAC 
IF (STRIKE. LT. 0.0) STRIKE =0.0 
IF (STRIKE. GT. 1.0) STRIKE =1.0 

Where: STRIKE = a variable holding the probability of a strike 
STRIK2 = a temporary holding variable 

STKFAC = a factor to control the sensitivity of the strike 
probability 



The first and second statements above sho T ws that if a company’s 
wage rate and fringe benefit rate are equal to both of the respective 
averages and bases, a strike probability will not be generated. It can 
be easily seen that if one company pays high wages and low benefits and 
another company pays low wages and high benefits, the resulting strike 
factors may be equal. It can also be seen that companies that pay both 
low wages and fringe benefits will greatly increase their chances of 
getting a strike. STKFAC is a parameter set- in by the model administrator 
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to control the sensitivity of the strike factor or, if it is set equal to 
zero, the strike feature will be completely eliminated from the model. 

Although the variable STRIKE is greater than zero, it does not 
mean that a strike will occur. 



CALL RANDNO (RNUM) 

IF (Rl'IUM.GT. 0.0. AKD.RNUM.LT. STRIKE) STRIKE = 1.0 
IF (STRIKE. EQ. 1.0) GO TO 630 



The determination of the strike status by random number attempts 
to take the human element into account in the simulation. Even if the 
STRIKE is a high number, nine-tenths for example, a random number larger 
than STRIKE would keep a strike from being called. To relate this to 
real life it would mean that a company might have a high probability of 
a strike because of low wages and inadequate fringe benefits being paid 
to its employees, but because the employees have other interest in the 
company, they do not want to strike. 

Lease Development 

The simulation of the development of different types of reservoirs 
would take on mammoth proportions if all of the factors describing the 
reservoir and its contents were taken into consideration and made 
compatible. This would be beyond the scope of this thesis, therefore 
a simplified approach was taken. Equations, were selected and experimented 
with until they would produce approximately the traits desired. Limits 
x^ere set and in many cases random selection decided the reservoir and well 
conditions. This method was used to generate various reservoir and well 



characteristics such as initial well pressure, recoverable reserves, 
initial flow rates, etc. 

Once the initial wells have been drilled and the lease development 
wells have been completed, it may be desirable to treat the wells. Two 
well treatments are provided in this simulation: fracturing and acid 

treating. The procedure followed produces results that approximate the 
real life event. 

After the wells of a lease. have stopped flowing by natural forces, 
it may be desirable to install pumps on the wells. This event is also 
simulated in the program. If the pumps do not produce the desired results 
or the wells have declined belox-r the economical limit for pumping, a 
secondary recovery system may be installed on the lease upon request. 

One departure from reality has been made for the cause of 
programing simplicity. If it is desired to fracture, acid treat, install 
pumps, or install a secondary recovery system on a lease, it will be done 
on all of the wells of the lease. Overall lease performance must be used 
to decide whether or not to invest in one of these improvements. 

Exploratory Drilling 

Exploratory wells may be drilled on a lease whenever requested 
by the company who owns the lease. In this work, an exploratory well 
is the initial well drilled on the lease where there are no other producing 
wells. If an exploratory well is not drilled on an unproven lease within 
one year of purchase, a delay rental rate will automatically be charged at 
the amount of one dollar per acre per year as stated in the lease descriptions. 

Companies are permitted to drill on a maximum of eight leases for 
each simulated time period. The company decisions as to which lease they 
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desire to drill on and how many wells are to be drilled are read into 
the computor. 



READ (5,25) (XDRILL(I, J,l) , J = 1,S) 

READ (5,25) (XDRILL(I,J, 2 ), j = 1,3) 

Where: XDRILL(I, J,l) = the array that holds the lease numbers upon which 

drilling is desired 

XDRILL(I, J, 2 ) = the array that holds the number wells desired to 
be drilled 



Limitations have been set in the model which allow only one 
exploratory well to be drilled per month and four development wells to be 
drilled per month thereafter on the same lease. It was felt that if oil 
or gas was found on the lease, more rigs would be moved in to develop the 
reservoir as fast as possible. 

When the computor reaches the development portion of the program, 
it checks to determine if a request to drill has been made and if the well 
to be drilled is an exploratory well. 



DO 650 K = 1,8 

IF (XDRILL(I,K, 1 ) . EQ. TEMP. AJtfD. SMELLS (II) .EQ.O) GO TO 658 



65 O CONTINUE 



658 KOUNT = KOUNT + 1 

IF (KOUNT. EQ.l) WRITE 96,1100) I 
IF (JJ.EQ.l) WRITE (6,1101) II 

Where: TEMP = the lease number as a floating point variable 

NWELLS(II) = the number of producing wells on the lease 
KOUNT = an integer counting variable 



'The last three statements above are merely statements to control 



the format of the Lease Develooment Reoort. 
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The next task to be accomplished is to determine if there is oil 
and/or gas under the lease being drilled upon. All unproven lease 
descriptions were analyzed and have been assigned a geological chance 
or probability of discovery factor the value of which ranges from zero 
to one. The term "geological chance" has been defined as the chance of 
finding oil on any exploration attempt.^ First, the requested number of 
wells must be reduced by the initial well. 



XDRILL(I,X,2) = XDRILL(I,K,2) - 1.0 
CALL RANDNO (RNUM) 

IF (RNUM.GT.GEOFAC (II) ) GO TO 659 
GO TO 66 0 



VJhere: RNUM = a random number between zero and one 

GECFAC(II) = the geological chance of discovery for the lease 



A random number represented by the variable RNUM is called from the 
subroutine RANDNO. It is then compared’ with the geological chance factor. 
If the random number is greater than the geological chance factor, a dry 
hole has been drilled. 



659 GEOFAC ( II ) =0.0 
H0LD2 =0.0 

IF (NWELLS(II).E3.0) K = 1 
'WRITE (6,1103) JJ, K, DRY, H0LD2 



XDRILL(l,K,l) = 0.0 
XDRILL(I,K,2) = 0.0 

Where: H0LD2 = a temporary variable representing the initial well flow rate 
JJ = the month number of this simulated period in which the well 
was drilled 

K = the number of the well drilled this month 



The assumption has been made in this model that when a dry hole is 
drilled on a lease, all other wells drilled on the lease will be dry. This 
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is the reason why the geological chance factor is set equal to zero. The 
company who owns the lease may drill again the next period, but the result 
a gain be a dry hole. Jiacn time a well is drilled, a statement is 
printed on the Lease Development Report that includes the month of the 
simulated period during which the well was drilled, the well number for 
that month, the status of the well (whether it is a discovery well or a 
dry hole), and une initial f low rate of the well. Further information is 
provided if the well is a discovery well and will be explained later. If 
the well is a dry hole, no more wells will be drilled on the lease for the 
period in which the dry hole was drilled even though more wells were 
requested. The program will proceed to the next lease of the company. 

A well is a discovery well if the random number drawn is less than 
or equal to the geological chance factor. When it is a discovery well, the 
amount of recoverable oil in the reservoir discovered is determined by a 
random selection process. The method utilizes a distribution of the per 
cent chance of average field size as set forth by F. A. Lanee in his 
article How Many Fields Really Pay Off?" and graphically illustrated by 
Campbell and Schuh in their paper "Risk Analysis" Overall Chance of Success 
Related to the Number of Ventures."'* The per cent chance of field size was 
divided into nine equal increments and a random number is used to determine 
the catagory of the field size to represent the discovery. 

66 0 X = 0.0 

W = 0.0 

CALL RANDNO (RNUM) 

DO 661 K = 1,9 
w = W + FLOAT(K) 

Y = W/4 5. 
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IF ( RNUM. GT . X . AND . RNUM. LE . Y) GO TO 662 
661 X = Y 

Where: X = the lower limit of the increment 
Y = the upper limit of the increment 
W = a temporary holding variable 



The limits of the field sizes were picked corresponding to the 
per cent chance limits. Although Lanee’s distribution plots as a curve 
on regular coordinates, linear interpolation is used to calculate the 
field size that lies between the limits of the increment. It was felt 
that the results obtained would be accurate enough for this purpose. 

The calculations for the nine catagories of reservoir size are 
similar except for the numerical values, therefore only the catagory for 
the increment of between ten and twenty per cent chance is discussed. 



662 CALL RANDNO (RNUM) 

GO TO (663,664,665,666,667,668,669,670,671), K 



664 RESORS(II) 
LESFAC ( II ) 
DZERO(II) 
QZERO(II) 
PINT (II) 
FVF(II) 

GO TO 675 

Where: R230R5(II) 
LESFAC (II) 
DZERO(II) 
QZERO(II) 
PINT (II) 
FVF(II) 



(263. + RNUM * 560) - 10000. 

RE30R3 ( II ) * .000002 

0. 034167 

1. /. 000006 - DZERO(II)/.995 
1000. + RNUM * 4000. 

1.1 + RNUM * 0.4 



the total recoverable oil on the lease 

the factor that limits the number of wells on the lease 

the slope of the production decline curve 

the initial well flow rate potential in barrels per day 

the initial reservoir pressure 

the initial formation volume factor 



The first numoer in the first statement above which calculates the 
amount of recoverable oil is the limit for the minimum amount of recoverable 



' 
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oil in the reservoir. The second number is the increment between the 
minimum amount and the maximum amount. 

The lease factor is utilized to determine the maximum number of 
wells that can be drilled on the lease. As will be shown later, a well 
factor between zero and one will be assigned to each well drilled on the 
lease, and will determine the production rate of the well. As the well 
factors are assigned, their values are subtracted from the lease factor. 
All wells drilled after the lease factor is reduced to zero will be dry 
holes. This procedure was used in preference to using various well 
spacing and location on certain size leases because of its comparative 
simplicity. 

The slope of the decline curve represented by DZERO(II) was chosen 
by experimental means. How it was chosen will be explained later in the 
section on lease production of this chapter. 

The initial flow rate potential, or QZERO(II), is the term used to 
describe the best possible flow rate per well for the reservoir. The 
equation used to calculate QZERO(II) was derived by integrating the 
equation to describe the decline of the recoverable reserves between the 
initial flow rate and a low flow rate limit and resulted in: 

Q = (RESERVES) (D„) 
o 1. - FACTOR 

'.■here: Q = the initial flow rate 
RESERVES 0 - the recoverable reserves 

D = the slope of the production decline curve 
FACTOR 0 = a number chosen that when multiplied by Q q 
established the low flow limit 

The derivation of this equation is given in APPENDIX E . 
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To find the maximum recoverable oil for a well with a well factor 
of one which is the maximum flow potential, the total amount of recoverable 
oil is divided by the lease factor. If this answer is used, the total 
recoverable oil would be recovered when the flow rate declined to the 
low limit previously set by multiplying the amount FACTOR times the initial 
flow rate. It is desired, however, that about half of the recoverable oil 
be recovered by natural forces with the rest left to be recovered by 
artificial lifting methods and secondary recovery. Therefore, the quotient 
of the reserves divided by the lease factor is now divided by two. The 
result is multiplied by DZERO(II) and divided by one minus FACTOR to 
obtain QZERO(II). 

Initial reservoir pressure is not directly related to the well flow 
rate or the amount of recoverable reserves. It is more a function of depth 
or the reservoir’s natural surroundings, and therefore is picked by a 
random process. The limits of reservoir oressure are set at 1000 PS I to 
5000 ?SI and the process chooses some pressure in between the two. 

The initial formation volume factor is selected by the same random 
process between the limits of 1.1 and 1.5. Since the formation volume 
factor is related to the initial pressure, it is related to the initial 
pressure by using the same random number to calculate it. 

The next step is to assign the well a number and a well factor 
and compute the initial flow rate of the well. 

675 CALL RANDNO (RNUM) 

WELNUM( LASTNM, 1 ) = II 
WELNUM ( LAS TNM , 2 ) = RNUM 
LASTNM = LASTNM + 1 
LESFAC ( II ) = LESFAC(II) - RNUM 
H0LD2 = QZERO(II) * RNUM 
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Where: WELNUM(LASTNM,l) = the array holding the lease number in which the 

well is located 

WELNUM ( LAS IN M , 2 ) = the array holding the well factor 

LASTNM = the index of the well number array which is 

actually the well number 

H0LD2 = a temporary holding variable that represents 

the initial flow rate of the well 



First, a random number is called and is used as the well factor. 

The well is then assigned its lease number in the first column of the 
WELNUM array, and the well factor is assigned to the corresponding location 
in the second column of the array. One is then added to the variable LASTNM 
in order that the next number will be ready for the next well completed. 

The last characteristics of the well and oil are now calculated. 



OILFAC = (K0LD2 - HOLD2/EXP(DZSRO(II)))/2.0 

PI = OILFAC /((PINT (II) - PINT (II ) /EXP (DZERO (II) * 1.4))/2.0) 

CALL RANDNO (RNUM) 

VISCTY(II) =0.1 + 20. * RNUM 
CALL RANDNO (RNUM) 

GORINT(II) = 1000. * RNUM 
NWELLS ( II ) = NVJELLS(II) + 1 



Inhere: VISCTY(II) = the oil viscosity for the reservoir in centipoise 
GORINT(II) = the initial producing gas-oil ratio 
OILFAC = the average flow rate in barrels per day over a 
period of one month 

PI = the productivity index for the well 



In the first statement, the average oil flow rate is determined 
for the first month of production by calculating the rate at time zero and 
the rate at time one and averaging the two values. 

PI, the productivity index, is defined as "the ratio of the rate of 

production, expressed in stock tank barrels per day, to the pressure 

5 

drawdown at the midpoint of the producing interval." It is used to 
indicate the producing ability of the well. 
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'The next four statements determine the viscosity of the oil 
in centipoise and the producing gas-oil ratio. Both values are picked by 
utilizing random numbers to select a value between set limits. Since this is 
the initial well for the lease, the last statement establishes the number 
of producing wells contained in the array NWELLS for the lease as one. 

All reservoir, well, and oil characteristics calculated are printed 
on the Lease Development Report for the initial well on the lease. For all 
development wells after the initial well, all of the characteristics are 
printed except the formation volume factor and the viscosity which will be 

I 

the same for all wells on the lease. 

Development Drilling 

Once a discovery well has been completed, the drilling of the 
development wells can begin. The number of the development wells drilled 
is limited to four wells per month per lease. The requests for drilling 
are checked to determine if the company desires to drill on its lease. 



DO 650 K = 1,8 

IF* (XDRILL(ljK^l) .EQ.TEKP.AND.ZDRILL(I,K,2) .GT.O.l) GO TO 65I 

650 CONTINUE 

651 FOUNT = FOUNT + 1 

IF* (XDRILL(I*,F,2) .GT.4.0) GO TO 634 
N = XDRILL( I , F , 2 ) 

XDRILL(I,F,2) = 0.0 
GO TO 635 

634 N = 4 

XDRILL(I,F,2) = FBRILL(I,K,2) - 4.0 

63 5 CONTINUE 



Where: K = the number of wells to be drilled this month 
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When the program discovers that development wells are to be drilled, 
it tests to see if the number of wells requested to be drilled is greater 
than four. If it is less than four, the number requested is reduced to 
zero and the wells are drilled. As previously stated,' the maximum number 
of wells to be drilled per month is limited to four. If the number of wells 
requested to be drilled is greater than four, the alloted four wells are 
drilled and the remaining wells will be drilled the following month if 
circumstances permit. 



DO 652 K = 1,H 
CALL RANDNO (RNUM) 

IF (LESFAC(II).LT. 0.001) GO TO 659 

IF (LESFAC(II)-RNUM.LE.O.O) RNUM = LESFAC(II) 

WELNUM(LAS!NM, l) = II 

WELNUM( LASTKM, 2 ) = RNUM 

LESFAC(II) = LESFAC(II) - RNUM 

NWELLS(H) = NWELLS ( II ) + 1 

H0LD2 = RNUM * QZERO(II) 



652 CONTINUE 



The procedure is similar to the procedure used for the discovery 
well with the exception of the third and fourth statements. The third 
statement tests to find out if the limit of the number of wells for the 
lease has been reached. If it has, the well drilled will be a dry hole 
and no more wells will be drilled on the lease for the remaining part of 
the simulated time period. The fourth statement tests the random number 
to determine if it is larger than the remaining amount stored in the lease 
factor for the reservoir. If the random number is larger, it is set equal 
to the lease factor. This prevents the sum total of the well factors from 
becoming greater than the original lease factor. 
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Development drilling will continue as long as it is requested 
at the rate of four wells per month until the lease factor is reduced 
to zero. 

Well Treating; . Artificial Lifting: , and Secondary Recovery 

Well treating in the model includes well fracturing and acid 
treating. Companies may have the wells fractured on a maximum of four 
leases and the wells acid treated on a maximum of four leases during a 
simulated time period. The lease numbers of the leases on which the 
company desires to have the wells fractured or acid treated are read 
into the computor. 

READ (5,25) (REQFRC ( I , J ) , J = 1,4) , (REQACD(I, J) , J = 1,4) 

Where: REQFRC (I, J) = the array holding the identity of the leases 

requested to be fractured 

REQFRC (I, J) = the array holding the identity of the leases 
requested to be acid treated 



Before the production of gas and oil on a lease is calculated, the 
request arrays for fracturing and acid treating are checked to find out if 
the wells on the lease are to be fractured or acid treated. 



DO 648 k = 1,4 

IF (REQFRC (I, K) .EQ.TEMP) GO TO 633 
IF (REQACD(I,K). EQ.TEMP) GO TO 633 

64-8 CONTINUE 

Where: TEMP = a temporary floating point variable holding the lease 
number in question 
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If a request for fracturing or acid treating is made, there will 
be no production on the lease for that month of the simulated period. 
Drilling is done, however, for fracturing and acid treating may be 
thought of as an extension of the well completion routine. 

Once the production calculations are bypassed and any requested 
drilling is completed, the request arrays are again checked. 



6?6 X = NWELLS(II) 

DO 677 K = 1,4 

IF (REQFRC(I,K) .EQ.TEM?) GO TO 685 
IF (REQACD(I,K) .EQ.TEM?) GO TO 686 
677 CONTINUE 
GO TO 632 



If there are no requests to fracture or acid treat the wells on 
the lease, the program proceeds either to the next month of the simulated 
period or to the lease accounting section. 

When there is a request for the wells of a lease to be fractured, 
whether or not the fracture treatment is successful is next determined. 



685 REQFRC(I,X) =0.0 

IF (N0(II).NE.3C.CR.N0(II).NE.40) GO TO 68? 

NO(II) = NO (II) - 5 
CALL RANDNO (RNUX) 

IF (RNUM. LT . FRCFAC ) GO TO 687 

Where: FRCFAC = parametric variable representing the chance that the 
fracture treatment is not effective 
NO (II) = the control array for well treating, pumping and 
secondary recovery 



The control array given above as NG(II) is used to control the 
number of times well treatments, installation of pumps, and installation 
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of secondary recovery can be carried out on a lease, and the order in 
which they are carried out. It limits each lease to one fracture treat- 
ment and one acid treatment per well. Each time the attempt is made to 
fracture or acid treat a well after the initial attempt, the treatment 
will not effect the wells production rate but the company will lose one 
month’s production from the lease. Fracturing and acid treating the wells 
of a lease can be performed in any order, however, they may not be done 
once pumps and/or secondary recovery systems have been installed on the 
lease. The control array also limits a company from installing a secondary 
recovery system on a lease before the company installs pumps. If a lease 
is sold to another company, the purchasing company must abide by the condi- 
tions of the lease, i.e. if a well has been fractured it cannot be fractured 
again. The diagram on the following page illustrates the control array’s 
operation. 

A random number is called from the subroutine and compared with 
the parameter FRCFAC which is the per cent chance in decimal form that the 
fracture of the well will not effect the well's production. The value for 
FRCFAC is set in by the model administrator at the beginning of the 
simulation. If the random number is less than the value stored in FRCFAC, 
the program bypasses the fracturing routine, charges the company for the 
fracture treatment of one well, and prints a statement on the Lease 
Development Report reporting the results. If the random number is greater 
than FRCFAC, the program proceeds to adjust the initial well flow rate and 
the slope of the decline curve to simulate the effects of a successful 



fracture treatment. 
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The diagram of the array, NO(Il), which shows how the array controls a company's actions in well 
fracturing, acid treating, installing pumps, and installing secondary recovery. 
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QZERO(II) = QZERO(II) * FRF LOW 
DZERO(II) = DZERO(II) * DECLN 

WRITE (6*1105)*X, Z 

Where: FRFLOW = a number greater than one used to increase the initial 
flow rate 

DECLN = a number used to increase or decrease the decline rate 



The parameters FRFLOW and DECLN are set by the model administrator 
before the simulation begins. If it is thought that the effects on the 
production quantity and on the production decline are not proper, the 
values of the parameters may be changed by locating them in the carry- 
over deck and making the proper adjustments. 

The next well treatment is acid treating and it is handled similar 
to the fracture treating routine. 



686 REQACD(I,K) = 0.0 

IF (NQ(II).LS.30) GC TO 688 
CALL RANDNO (RNUM) 

IF (RNUM.LT. ACDFAC ) GO TO 683 
QZERO(II) = QZERO(II) * AC FLOW 
DZERO(II) = DZERO(II) * DECLN 

WRITE (6*110?)*X, Z 

Where: ACDFAC = the parametric variable representing the chance that 
the acid treatment will not be successful 
ACFLOW = similar to FRFLOW 



The adjustments to the initial flow rate and the slope of the 
decline curve are similar to that of the fracture treatment. They are 
set in the initial starting deck to make acid treating less effective 
than fracturing. 



39 



The next operation that might be performed on the lease is the 
installation of pumps. 



READ (5,25) (REQPM?(I,J),J = 1,4), (REQSEC(I, J) , J = 1,4) 
DO 648 K = 1,4 



IF (REQP24P(I,X).EQ.TEM?) GO TO 69O 
IF ( REQS EG ( I , K ) . E; . TEXP ) GO TO 691 
648 CONTINUE 



690 REQPMP ( I , K ) = 0.0 

IF ( 0 ILFAC . GE . OIL ALW ) GO TO 632 
IF (NO(II) .LE.15) GO TO 632 
QZERO(II) = QZERO(II) * PMFLOVJ 
DZERO(II) = DZERO(II) * DECLN 
NO (II) = 15 

VCFACT(II) = VCFACT(II) * 1.2 

Where: REQ?MP(I,K) = the array holding the number of the leases upon 

which pumps are requested to be installed 
REQ3EC(I,K) = the array holding the numbers of the leases upon 
which secondary recovery systems are requested 
to be installed 

OILALW = a parameter holding the allowed monthly production 

rate of oil 

PMFLOW = similar to FRFLCW and ACFLCW 

VCFACT(II) = the variable cost factor used to claculate lease 
operating costs 



The installation of pumps on a lease is handled in a manner similar 
to that of fracturing and well treating with a few exceptions. It was felt 
that the chance of failing to produce results by pumping was small and the 
chance of failure has been ignored. Since additional equipment maintenance 
and operating costs will occur with the installation of pumps, the variable 
cost factor that is used to compute operating costs for the lease is 
increased. Also, companies are restricted from going into this phase of 
production as well as the secondary recovery phase that follows until flow 
rates from the wells drop below the allowed oil production rates. 



liO 
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The last phase that production on a lease may enter is the second- 
ary recovery phase. 



691 RE3SEC(I,X) = 0.0 

IF ( OILFAC . GE . OILALW ) GO TO 632 
IF (NO(II).EQ.O) GO TO 632 
QZERO(II) = QZERO(II) * SRFLOW 
DZERO(II) = DZSRO(II) * .9 



NO(II) = 0 

VCFACT(II) = VCFACT *1.3 

Where: SRFLCW = a parameter similar to FRFLOW, and PMFLOW 



The secondary recovery is also similar to the pumping phase. The 
installation and equipment maintenance costs are greater than with just the 
pumps and are simulated by using a larger factor multiplied times the 
variable cost factor. The installation costs will be discussed further 
in the section on company accounting. 



Lease Production 

Much of the simulation of the lease development and production is 

based upon the generation of production decline curves. It has been stated 

that there are basically two classes of decline curves that describe the 

production rate decline of reservoirs. These two classes are the hyperbolic 

7 

and the exponential curves. Of the two, the exponential class was chosen 
to be used in this model because it was simple to work with and it produced 
the desired results. 

The formula given to describe the exponential decline curve is: 

-Dt 



q t = V 

Where: = the oil production rate at time t 

q = the initial oil production rate 
D° = the slooe of the decline curve 
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See Appendix E for the derivation of the equation. 

The value of the slope, D, was picked experimentally for each 
catagory of reservoir previously mentioned in order that the initial flow- 
rate and the amount produced would be within reasonable limits. From the 
equation above and from the equation given previously for calculating the 
initial flow rate of the wells, it can be seen that when the slope, D, 
multiplied by the value for time equals one, about thirty-seven per cent 
of the reserves, producible by natural forces, have been produced. Also, 
the flow rate at that time is thrity-seven per cent of the initial well 
flow rate. 

The program first calculates an average oil production factor 
which would be the production from a well for the month if its well 
factor was equal to one. 



0IL1 = QZERO ( II ) / EX? ( DZERO ( II ) * TIME (II)) 

0IL2 = QZERO ( II ) / EX? ( DZERO ( II ) * (TIME(II) + 1.0)) 

OILFAC = (0IL1 + 0IL2)/2.0 

Where: 0IL1 = the production rate at the beginning of the first month 
0IL2 = the production rate at the beginning of the next month 



The production rate for the first of the month is calculated and 
averaged with the production rate calculated for the next month. Although 
the line between the two points is a curve and an average assumes it to be 
a straight line, the two points are close enough to give a good approxima- 
tion of the average production for the month. 

Next, the program generates an average producing gas-oil ratio 



or GOR for the month 



GFAC = GORINT ( II ) /lO . 

Goal = (1. + 5IK(3. 141659 * (3./2. + TIMS(II)/GFAC))) * QZERO(II) 
1 * 30. /DZER0(II))/0IL1 + GORINT (II) 

GCR2 = (1. + 3IN( 3 . 141659 * (3-/2. + (TIMES (II) + 1.0)/GFAC)))* 

1 QZERO(II) * 30. / DZERO ( II ) / 0IL2 + GORINT(II) 

GOR = (G0R1 + G0R2)/2.0 

IF (GGR.LT.G0RINT(II)*0.9) GOR = GORINT(II) * 0.9 

Where: G0R1 = the gas-oil ratio at the beginning of the month 
G0R2 = the gas-oil ratio at the end of the month 
GOR = the average gas-oil ratio for the month 
GFAC = a factor used to vary the peak of the gas-oil ratio curve 



The equation for the producing gas-oil ratio was determined 
experimentally and is based on a skewed sine curve with time zero starting 
at the minus one point on the curve. The resulting curve is similar to the 
producing gas-oil ratio curve that might be plotted for a solution gas 
drive reservoir. An example of the curve can be seen on the following 
page. As can be seen from the last FORTRAN statement above, the gas-oil 
ratio was given a low limit of ten per cent less than the initial gas oil 
ratio . 

The next task undertaken is the selection of the wells from the 
well number array and the computation of the individual well’s monthly 
production. Since OILFAC is computed in daily production, it must be 
multiplied by thirty to obtain the maximum monthly production rate. 



OILFAC = OILFAC * 30. 

DO 683 X = 1,1000 

IF (WELNUM( X , 1 ) . EQ . TEMP ) GO TO 634 
GO TO 683 

684 PRDOIL = PRDOIL + OILFAC * NELNUM( K , 2 ) 
683 CONTINUE 



Where: PRDOIL = the monthly production of oil 
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'When the progran comes to a well number assigned to the lease in 
array WELNUM(K,l) , it calculates the well production by multiplying the 
well factor tines the maximum average monthly production. At the same 
time this result is added to the sum of the production from the other 
wells on the lease. 

Next, the total monthly production is checked against the allowable 
production for the month. 



X = NWELLS(U) 

H0LD2 = PRDOIL 

IF (PRDOIL . GT . X*OILALW ) PREOIL = X * OILALW 
• PRDGAS = PRDOIL * GOR * 0.001 

IF (PRDGAS .GT.X*GASLALW) PRDGAS = GA3ALW * X/(G0R * 0.001) 

PRDGAS = PRDOIL * GCR * 0.001 

OILPRD(II) = OILPRD(II) + PRDOIL 

GASPRD(II) = GASPRD(I) + PRDGAS 

TIME (II) = TIME (II) + PRDCIL/H0LD2 

Where: GA5ALW = the allowable gas production for the month 

OILALW = the allowable oil production for the month 

X = the number of producing wells on the lease 

PRDGAS = the monthly production of gas 



The program limits the production of oil to that of the monthly oil 
allowable. Next, the gas production is computed and if the gas production 
exceeds the monthly gas production allowable, the amount of oil produced 
is limited to the amount that will produce the gas allowable. The 
cumulative time of production for the lease is now incremented by the 
fraction determined by dividing the amount of oil actually produced by 
the amount of oil that could have been produced if not limited by the oil 
or gas allowable. The program now proceeds to the drilling routines, 
the next month’s production, or to the lease accounting routine. 
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Conclusion 

The methods and procedures used to simulate lease development 
and production have been greatly simplified. The results obtained, 
however, are in the realm of possibility. With further study and develop- 
ment, this part of the model could be greatly refined to better simulate 
real life conditions. 



CHAPTER IV 



LEASE AND COMPANY ACCOUNTING 
Lease Accounting 

Federal taxation is a major consideration before transactions 
on property can be completed, for about half of the net operating income 

g 

of a company is paid out as corporate taxes. An important deduction 
that is taken before the calculation of Federal taxes that oil companies 
enjoy is the depletion allowance deduction. This allowance is granted 
as a return of investment in a piece of property theoretically at the 
same rate that the property depreciates in value as the oil is removed. 

Section 614(a) of the Internal Revenue Code states: "For the 

purpose of computing depletion allowance in the case of mines, wells, 
and other mineral deposits, the term 'property' means each separate 
interest owned by the taxpayer in each mineral deposit in each separate 
tract or parcel of land." This is interpreted to mean that to be a 
unit of land for depletion computation purposes, the taxpayer must have 
the same interest in all parts of the unit, he must have acquired them 

at the same time, the unit must be a contiguous tract, and the unit must 

9 

have been acquired from the same assignor. For the purposes of this 
simulation, each lease will be considered as a single unit for the 
computation of depletion. It was necessary to perform the lease account- 
ing before the company accounting because depletion must be calculated 
on a single unit basis. 
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Gross Income Per Lease 

The first step in lease accounting is to compute the gross revenue 
produced from the operation of the lease. 



REVNUE(II) = OILPRD(II) * OPRICE + GASPRD * GPRICE 

Where: REVNUE(II) = the total income for the lease 

OILPRD(II) = the amount of oil produced on the lease for the 
simulated time period in standard tank barrels 
GASPRD(II) = the amount of gas produced on the lease for the 
simulated time period in thousands of standard 
cubic feet 

OPRICE = selling price of oil per barrel 

OPRICE = selling price of gas per thousand cubic feet 



The assumption is made in the simulation that all of the oil and 
gas that is produced on the lease is sold immediately. OPRICE, the selling 
price of oil, and GPRICE, the selling price of gas, are parameters that 
are set at the initial starting point by the model administrator. The 
simulation of market fluctuation of prices such as seasonal variences 
can be accomplished by the variation of oil and gas prices by the model 
administrator if desired. 

The next phase is to compute the royalty payment and the gross 

income. 



ROYLTY(II) = ROYL * REVNUE(II) 

GROSS (II) = REVNUE(II) - ROYLTY(II) 

Where: ROYLTY(II) = amount of royalties paid out of revenues 
ROYL = rate of royalty payments 

GROSS = the gross income for the lease 

The amount of royalty paid to the lessor is computed by multiply- 
ing the royalty rate ROYL times the earned revenue REVNUE(II). The royalty 
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rate is normally set by the terms of the lease, but in the simulation 
the royalty rate ROYL is a parameter set by the model administrator 
usually at the initial starting point and it is not changed during the 
simulation. 

The gross income of the lease, which is represented by the variable 
GROSS(II), is simply the total revenue minus the royalties paid. 

Equipment Renewal 

There is a certain amount of tangible equipment on a producing 
oil lease, such as pumps, separators, pipes, tanks, etc., that is used 
to ‘get the oil out of the reservoir and process it for shipment. This 
tangible equipment will wear out with age and must be serviced or replaced. 
In the model, the companies are allowed to renew tangible equipment on a 
maximum of eight leases per simulated tine period. 



READ (5,11) (RENEW(I,J,l), J = 1,8) 
READ (5,11) (RENEW(I,J,2), J = 1,8) 



DO 604 K = 1,8 

IF (RENEW(l,K,l).LE.O.Ol) GO TO 60S 
N = RENEW(I,K,l) 

IF (N.EQ.LESSEE(I , J) ) GO TO 605 
604 CONTINUE 

Where: RENEW(I,K,l) = the array holding the numbers of the leases where 

the requested equipment renewal is to be made 
RENEW(I,K,2) = the array holding the amount in dollars of the 
equipment to be renewed 

N = a temporary variable used to change a floating 

point variable to a fixed point variable 



To renew equipment on a lease, the student punches the lease 
numbers of the leases on which it is desired to renew equipment in the 
first equipment renewal card starting in the left most field. In the 
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corresponding field, on the second equipment renewal card, is punched the 
dollar amount value of the equipment desired to be renewed. 

When the computer reaches the equipment renewal section on the 
model, it tests to see if the company, whose leases it is processing on 
a particular loop, desires to renew equipment on any of its leases. If 
the company does desire to renew equipment on a lease, the lease numbers 
of the requested equipment renewals are checked to determine if the lease 
being processed is one of them. If there is no equipment to be renewed 
on the lease being processed, the program by-passes the equipment renewal 
section. When there is equipment to be renewed, the program computes a 
factor to determine the effect of the renewal on the overall life of the 
equipment and the variable cost factor. 

605 FACTOR = (EQCOST(II) - TANG(II))/RENEW(I,K,2) 

IF (FACTOR.LT. O.75) FACTOR = 0.?5 
IF (FACTOR. GT. 20.0) FACTOR = 20.0 

Where: FACTOR = a variable which is an indicator of the effect 

of the amount of equipment renewal on the equipment 
life 

EQCOST(II) = original equipment cost 



The variable FACTOR is computed by dividing the equipment 
depreciation, which is equal to the original cost EQCOST(II) less the 
undepreciated value contained in the variable TANG (II), by the value 
invested in the renewed equipment. Limits were then set on FACTOR for 
the following two reasons. First, the FACTOR is limited to a lower limit 
of 0.75, because it was felt that if all of the equipment was completely 
replaced and also taking into account improvements on the equipment, the 
new equipment would probably not increase effectiveness much more than 
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twenty-five per cent over the original equipment when it was new. Second, 
the upper limit was established to prevent a very small renewal request 
from jamming the program. The number twenty was an arbitrary number. 



TANG (II) = TANG (II) + RENEW(l,K,2) 

IF (EQCOST(II) .LT.TANG(II) ) EQCOST(II) = TANG(II) 



The first statement above adds the amount of renewal to the 
undepreciated amount of the equipment in order that a new depreciation 
schedule will be followed. Next, the original cost of the old equipment 
is compared with the new equipment cost. If the new equipment cost is 
higher, the original cost is set equal to the new amount. 

When the equipment is completely renewed, the equipment variables 
in the program are returned to the state they were in when the equipment 
was new. 



VCFACT(II) = VCFACT(II) * FACTOR 

RQAGE(II) = 0.0 

EQLIFE(II) = EQLIFE(II) /FACTOR 

Where: VCFACT(II) = the variable cost factor for determining the variable 

production cost per barrel of oil 
EQLIFE(II) = the expected life of the equipment in months 
EQAGE(II) = the age of the equipment in months 



The variable VCFACT(H) is used to compute the variable production 
cost per barrel of oil. This cost factor is originally set in by the 
model administrator for what might be termed as standard original equip- 
ment. If improved equipment is installed, the basic cost factor is 
reduced by dividing it by the effect variable FACTOR. Next, the equipment 



age for the lease, represented by the variable EQAGE(II), is set to zero 
for the equipment is supposedly returned to its original or better 
condition. Also, if better equipment is installed, the equipment life 
is usually longer than that of the original equipment. The new equip- 
ment life is extended by dividing the original equipment life, represented 
by EQLIFE(ll), by FACTOR and the quotient is stored back in EQLIFE(II). 

IF (FACTOR. GT. 1.0) GO TO 60? 

60? EQLIFE( II ) * = * EQLIFE(il) + EQAGE( II) /FACTOR 



The amount of money invested in equipment renewal at times will be 
less than the amount of the original equipment depreciation. When this 
happens, the equipment life is increased by adding an amount equal to 
the equipment age or EQAC-E(II) divided by FACTOR. As will be shovm later, 
this will effectively reduce the variable production costs per barrel 
of oil. 

Lease Operating Costs 

Lease operating costs are defined for this work as the direct 
costs to operate the lease. The fixed cost portion is the cost of labor 
which includes both the hourly wage and fringe benefits. The variable 
cost portion concerns the costs occuring from the use of power for pumps 
and compressors, and equipment maintenance costs including both labor and 
parts. 



608 TEMP = NWELLS * 10 

VAR = VCFACT(II) * EXP ( EQAGE ( II ) /EQLIFE( II ) ) 

OPCOST(II) = XLNGTH * TEMP * (PAY(I) + EMPBEN(I)) + VAR * OILPRD(II) 
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Where: VAR = the variable cost to produce one barrel of oil 

OPCOSf(II) = the total operating cost for the lease for this 
simulated time period 



Variable production costs are computed as an exponential function 
utilizing the ratio of the equipment age to equipment life (EQAGE(II)/ 
EQLIFE(II)). As mentioned above, variable costs vri.ll decrease if equip- 
ment is partially renewed, for the life of the equipment is increased 
which in turn reduces the value of the exponent. When equipment is 
completely renewed or improved equipment is installed, EQAGE(II) is set 
to zero and the value of the function is one, therefore, variable 
production costs start back at the bottom of the curve and are equal to 
VCFACT(II). In the case of improved equipment being installed, EQLIFE(II) 
was increased which effectively will delay the buildup of variable costs 
resulting in a cost savings to the company. 

Equipment Depreciation 

Depreciation is defined as a reasonable allowance for the exhaus- 
tion, wear and tear, and normal obsolescence of property used in a trade 
or business.^ This allowance is deductable from revenues before computing 
the Federal tax on income. 

Depreciation can be calculated by one of three methods: the 

straight line method, the declining balance method, or the sum of the 

year-digits method.^ Any one of the three methods may be chosen, but 

once a method is chosen, it cannot be changed, with one exception. The 

195^ Tax Code allows property owners to change from the declining balance 

method to the straight line method as long as the new rate is less than or 

equal to the rate that would have resulted if the straight line method had 

12 

originally been used. 
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The model is programed in such a manner as to simulate the 
allowances of the Tax Code. Companies are allowed to either choose a 
depreciation method or elect to change a depreciation method on a 
maximum of eight leases per simulated time period. 



DO 610 K = 1,8 

IF (NELECT (I,K,l).EQ.II) GO TO 611 

610 CONTINUE 
GO TO 612 

611 IF ( IELECT ( II ) . EQ . 0 ) lELECT(II) = NELECT(I,K,2) 

IF (IELECT(II).EQ.O) GO TO 6l6 

IF (NELECT(I,K,2).EQ.IELECT(II)) GO TO 612 
/ IF (NELECT(I,K,2).EQ.1.AND.ISLZCT(II).EQ.2) GO TO 620 
PENDEP(I,2) = P ENDS? (I, 2) + FINE 
PENDE?(I,1) = II 

Where: NELECT(I,K,l) = the lease number of the lease for which a 

depreciation method is to be chosen or changed 
NELECT (I, K, 2) = the number of the method that is chosen or is 
to be changed to 

IELECT (II) = the array holding the elected method of deprecia- 

tion for a lease 

PENDEP(I,1) = the lease number of the lease for which an unlaw- 
ful election of a depreciation method was made 
PENDEP(I,2) = the array holding the total amount of fines awarded 
for unlawful elections of depreciation methods 



The program first checks to find out if the company has chosen, or 
has elected to change a depreciation method. A company may choose, or 
elect to change a depreciation method by punching the number of the lease, 
for which the desired choice or change is to be made, in the first field 
of the depreciation elect card. The method, chosen or elected to be changed, 
is punched into the corresponding field in the second depreciation elect 
card. If no lease numbers are detected, the program continues to the next 
section. 

When a lease number is found, the depreciation method holding 
array IELECT(II) is tested to determine if the method entry is an 
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initial choice. If it is an initial choice, IELECT(II) will equal zero 
and the program will then set it equal to the method chosen. Should a 
company fail to punch a method in the second card and IELECT(II) equals 
zero, the model will allow no depreciation on the equipment on the affected 
lease for that simulated time period. The program next determines if an 
election to change depreciation methods is lawful. If it is not, the 
company is fined for attempting to make an unlawful change of deprecia- 
tion methods and a notice is printed in the remarks section on the 
company’s financial status sheet. The amount in the parameter FINS is • 
the same amount used previously for penalties. 

The holding array is now checked to find out what method of 
equipment depreciation is to be used. 



612 IF ( IELECT ( II ) . EQ . 0 ) GO TO 6l6 
IF ( IELECT ( II ) . EQ . 1 ) GO TO 614 
IF ( IELECT ( II ) . EQ . 2 ) GO TO 615 
IF (IELECT(II) .GT. 3 ) GO TO 609 

Again if IELECT (II) equals zero which indicates now that an 
initial choice of depreciation method has not been made, no depreciation 
will be allowed for the lease equipment for that simulated time period. 
If IELECT(II) equals one or is greater than three, the straight line 
method will be used. If IELECT(II) equals two, the declining balance 
method will be used. If IELECT (II) equals three, the sum of the year- 
digits method will be used. 



614 DEPREC(II) = TAIIG(II) /EQLIFE(II) 
IELECT (II) = DEPREC(II) 

GO TO 616 

609 DEPREC ( II ) = IELECT (II) 



Where: DEPREC(II) = the amount of depreciation to be taken for the 

lease for this period 



When the straight line method of depreciation is initially chosen, 
the program computes the amount of depreciation per month that can be taken 
for the lease by dividing the depreciable value of the equipment by the 
expected life of the equipment (TANG(II)/EQLIFE(II) ) . The amount of 
depreciation is then stored in IELECT(II) in order that the same amount 
can be used until the equipment is completely depreciated in value. If 
equipment is renewed on the lease and the straight line method is being 
used for that lease, IELECT(II) is reset equal to one and the program 
recomputes a new rate of depreciation and stores it in IELECT(II). 

For computation of depreciation by the declining balance method, 
the following formula was used: 

BOOK VALUE AT THE END OF Uth YEAR = P(l - D) U 13 

Where: P = the initial cost of the equipment 
D = the constant depreciation rate 
U = the last year depreciation was taken 



615 DRATE = 24. /EQLIFE(II) 

TEMP = M3SES/12 

TEMP = EQCOST(II) * (1.0 - DRATE) **TEMP 
GO TO 619 



619 DEPREC(II) = DRATE * TEMP * TIMFAC 

Where: DRATE = the constant depreciation rate 

TEMP = a temporary variable used as both the year for which 

book value is being computed and the book value computed 
TIMFAC = the fraction of a year that the simulated period 
represents 



The constant depreciation rate or DRATE is computed by dividing 
twenty-four by the equipment life (24. /EQLIFE(II) ) since the rate is 
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actually twice the fractional part of the cost per year that would be 
taken as depreciation using the straight line method. The number twenty- 
four was used because EQLIFE(II) is in months. A temporary variable TEMP 
is now used to store the number of the year that depreciation was last 
taken. This is computed by dividing the total amount of simulated time 
that is stored in MESE3 by twelve. Temp is again used to store the book 
value which is computed for the end of that year. Finally, the deprecia- 
tion is calculated by multiplying the book value at the end of the 
previous year times the constant depreciation rate, times the fraction 
of the year being simulated for this period. 

The sum of the year-digits method is actually calculated by months 
instead of years. The annual result will be the same although the monthly 
amount will vary a small amount. 



LIFE = EQLIFE(II) 

DO 640 K = 1,LIFE 
X = K 

640 TEMP = TEMP + X 

X = EQAGE(II) + 1.0 
IF (EQAGE(II).LE.O.Ol) X = 0.0 
DO 641 K = 1, LENGTH 

DEPREC ( II ) = DEPREC(II) + (EQLIFE(II) - X) /TEMP * EQCOST(II) ■ 

641 X = X + 1.0 
GO TO 6l6 



Where: LIFE = equipment life as a fixed point variable 

TEMP = a temporary variable representing the sum of the 
months digits 

LENGTH = length in months of the simulated period being run 



The first four statements above compute the denominator of the 
digits fraction. This number x-ri.ll be the same for the life of the 
equipment unless the equipment is partially renewed, however, it is 



58 



recomputed each time to save computer storage space. The depreciation 
is determined by a summation of the depreciation calculated for each 
month for the number of months in the simulated period. 

Net Income Before Depletion 

Net income before depletion is calculated next in order to deter- 
mine which type of depletion method will be used. 

TEMP = GROSS (II) - XLOSS(II) - DEPREC(II) - DRILCS(II) - OPCOSI(II) 

Where: TEMP = a temporary variable in which net income before 

depletion is stored 

DRILCS(II) = drilling costs that are deductable as expense 
XLOSS(II) = losses that are deductable 



Net income before depletion is found by subtracting deductable 
expenses from gross income. The deductable expenses are deductable losses, 
depreciation, deductable portion of drilling costs, and lease operating 
costs. 

Depletion 

Depletion for intangible assets may be compared with deprecia- 
tion for tangible assets. It is an allowance for the decrease in value 
of the lease as the oil and gas are removed. 

Two methods of computing depletion are used. One is cost deple- 
tion and the other is percentage depletion. 



H0LD2 = INTANG (II) * CILPRD(II)/RES0R3(II) 
RESORS(II) = RESORS(II) - OILPRD(II) 
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Where: H0LD2 = a temporary variable where the cost depletion 

amount is stored 

RESORS(II) = the amount of recoverable oil that is estimated 
to be in the reservoir for this lease 
INTANG(II) = the intangible assets assignable to the lease 



Cost depletion is calculated by multiplying the uncapitalized 
intangible assets represented by INTANG(II) times the fraction produced 
by dividing the amount of oil produced or OILPRD(II) by the amount of 
recoverable oil in the reservoir. The intangible assets are then 
reduced by the calculated amount of depletion, and the recoverable oil 
in the reservoir is reduced by the amount of the oil produced. 



IF ( TEMP . LE . H0LD2 ) GO TO 617 



617 DEPLET(II) = H0LD2 

-Where: DEPLET(II) = the amount of depletion computed for the lease 

for this time period 

TEMP = the temporary variable representing net income 

before depletion 

H0LD2 = the temporary variable representing the cost 

depletion amount calculated for the period 



The first statement tests to determine if the amount of cost 
depletion calculated is greater than the net income before depletion. 

If the cost depletion is greater, the cost depletion amount is the amount 
of depletion to be used for the lease for this period, and percentage 
depletion is not calculated. This normally occurs during the early stages 
of lease development when drilling costs are high and production is low. 

When the cost depletion amount is less than the net income be- 
fore depletion, percentage depletion is then computed. 
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PERDPL = 0.275 * GROSS (II) 

IF (PERDPL. GI. (0.5 * TEMP ) ) PERDPL = 0.5 * TEMP 
IF ( PERDPL. GT.H0LD2) DEPLET(II) = PERDPL 

Where: PERDPL = the amount of percentage depletion calculated 



Percentage depletion is defined as twenty-seven and one half 
per cent of the gross income, but it is limited to fifty per cent of the 
net income before depletion. The percentage depletion amount is calculated 
in the first statement above and compared to the limitation of fifty per 
cent of net before depletion in the second statement. It is then checked 
to see if cost or percentage depletion is greater. The larger value of 
the two will be the amount of depletion used. 

Net Income Before Taxes 

Net income before taxes is computed to provide a gage to 
determine how well the lease is doing toward contributing to the income 
of the company. 

623 BTXNET(II) = TEMP - DEPLET(II) 

Where: BTXNET(II) = the net income before taxes 



The net income before taxes amount is computed by subtracting 
the calculated depletion allowance from the net income before depletion. 

Company Accounting 

The purpose of the accounting for the company transactions is 
to reflect the financial position of the companies at the end of each 
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simulated time period. This position can be utilized by analysis to 
base future financial and engineering decisions upon. It can also be 
used by the model administrator to grade the progress of the companies. 
The accounting procedure might be thought of as simply keeping score for 
the companies and the Financial Status Sheet reflects the final score at 
the end of the period. 

It is common in real life for companies to keep two sets of 

accounting books: one set for tax ourooses and one set to "oresent a 

14 

sound picture of the economics surrounding a venture." This model 

I ■ 

effectively uses only one set of simulated books that attempts to perform 
the functions of the two. 

At the initial starting point of the simulation, all companies 
start at the same financial position. Each company will have an equal 
amount of current and fixed assets distributed in the same manner. 

To start the accounting process for a simulated time period, the 
companies' present financial status according to the balance sheet is 
read into the computer. 



DO 110 I = 1 , NPLAY 

READ (5,11) CASH(I) ,ASSETS(I) ,ACCREC(I) ,ACC?AY(l) ,INVEST(l) , 
STL0AN(I ) , BONDS (I ) ,MQUCTE(I ) 



110 CONTINUE 



Where: 



CA5H(I) = the cash on hand 
ASSETS (I) = the total assets of the company 
ACCREC(I) = the accounts receivable 
ACCPAY(I) = the accounts payable 

INVEST (I) = the outside investments of the company 
STLOAN(I) = the amount of short term loans outstanding 
BONDS(l) = the amount of bonds outstanding 
MQUOTE(I) = the present market quote 



62 



At the initial starting point of the simulation, the values 
read in are punched in the cards of the starting data deck. .An administrator 
may easily change these values if he so desires. The market quote, indicated 
above, will equal the book value at the start of the simulation. 

The Acquisition of Capital 

The acquisition of capital by a company is very important to 
its financial stability. The right amount of capital must be on hand at 
all times to take advantage of opportunities within the scope of the 
company’s operations as the opportunities present themself. On the other 
hand, idle cpaital is costly and should not be accumulated without a need 
for it. 

The program provides three methods to acquire capital: by obtain- 

ing a short term loan, by selling bonds which is considered a long term . 
loan, and by selling stock. The first method to be discussed is a request 
for a short term loan. 



IF (REQLNS(I) .LT.O.l) GO TO 127 

CRATIO = (CASH(I) + ACCRSC(I) ) ,/(ACC?AY(l) + STLOAN(I)) 

IF (CRATIO. LE. 2.0) RSQLNS(I) = 0.0 
IF (CRATIO. LE. 2.0) GO TO 129 

TEMP = (CASK(I) + ACCRSC(I) - 2.0 * ACCPAY(I) ) /2.0 - STLOAN(I) 
IF (REQLNo(I) .LE.TEM?) GO TO 129 
REQLN3(I) = TEMP 



Where: REQLNS(I) = the amount a company is requesting for a short term 

loan 

CRATIO = the ratio of current assets to current liabilities 

TEMP = the maximum amount that can be borrowed as a short 

term loan to make the current ratio equal to two 



The first statement above tests to see if the company has requested 
a short term loan, and if it has not the program bypasses this routine. If 
it has, the current ratio is next computed for the company. 
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The current ratio, sometimes referred to as the "bankers' ratio" 
is frequently used to measure a company's ability to pay its bills by 
money lending organizations.^ A common ratio used is a ratio of 2-to-l, 
however, some authors question the validity of using the current ratio as 
a measure of the financial strength of a company.^ This 2-to-l ratio is 
used as a standard in the model to limit the amount a company may borrow 
by using the short term loan. If the company's current ratio is less than 
or equal to the standard, company will not get the loan, and the request 
will be ignored. If the current ratio is greater than the standard, the 
program computes the amount that will make the ratio equal to the standard. 

It then compares this amount with the amount of the loan requested. T .'< T hen 
the amount requested is less than the amount that will make the ratio equal 
to the standard, the total amount requested will be loaned to the company. 
When the amount requested will make the current ratio less than the standard, 
the amount loaned is limited to the amount that will make the current 
ratio equal to the standard. 

Companies may pay off short term loans by requesting a minus loan. 



12? IF (REQLNS(I) .LT. (-0.1) ) GO TO 128 
GO TO 129 

128 STLOAJJ(I) = STLOAN(I) + REQLNS(I) 
CASH(I) = CASH(I) + REQLNS(I) 



Companies have the option of paying off short term loans at their 
discretion. In the last two statements above, since in both cases the loan 
request, RZiLNS(I), will be negative, adding the value of the request to 
cash and short term loans will reduce their values by the amount of the 



request. 
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The next method of capital acquisition is by borrowing of a long 
term loan which is the selling of bonds in the model. 



IF (REQ3ND(I) .LT.O.l) GO TO 706 
TEMP = PAYCAP(I) + RTEAHN(I) 

IF (BONDS (I) .GE.TEMP) RZQ3ND(I) = 0.0 
IF ( BONDS (I ).LT. TEMP) TEMP = TEMP - BONDS (I) 
IF (TEMP.GE.REQBND(I) ) GO TO 706 
REQBND(I) = TEMP 



VJhere: REQBND(I) = the amount of the bonds requested to be sold 

BONDS (I) = the amount of the bonds the company has outstanding 

TEMP = a temporary holding variable 

The debt/equity ratio is the ratio of the long-term debt to the 

total of the long-term debt plus the ownership investments, the ownership 

17 

investments being the paid in capital plus the retained earnings. A 
debt/equity ratio of fifty percent is used to limit the companies from 
borrowing. The debt/equity will be fifty per cent when the amount of 
bonds is equal to the sum of the paid in capital plus the retained earn- 
ings. When a company has bonds outstanding equal to the sum of the paid 
in capital plus the retained earnings, they will not be allowed to sell 
more bonds. When they request to sell bonds, and the debt /equity ratio 
is less than fifty per cent, the companies may sell bonds until the ratio 
becomes fifty per cent. 

The last method of obtaining capital for investment is to sell 
shares of company stock. 



709 BI5T0K = SCLDST(I) * KQUOT(I) 
PAICAP(I) = PAYCAP(I) + BISTOX 
CASH(I) = CASH(I) + BISTOX 
SHARES(I) = SHARES (I) + SOLDST(I) 
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Where: 



S0LD3T(I) 

BISTOK 

SHARES (I) 



= the number of shares of stock to be bought or sold 
= a temporary variable holding the value of the stock 
either bought or sold 
= the shares of stock outstanding 



The companies may sell stock at any time in any amounts by merely 
requesting the number of shares to be sold that they desire. The selling 
price will be the new market quote at the end of the simulated period 
which will not be known to the companies. The cash and the number of 
shares outstanding will be adjusted accordingly. This routine may also 
be used by companies who wish to invest in their own stock by buying it 
at the going market rate. This can be accomplished by requesting a number 
of minus shares to be sold. 

Adjusting Payables and Receivables 

The paying of outstanding bills thereby reducing accounts payable, 
and the collecting of outstanding receipts thereby reducing accounts 
receivable is executed in the early part of the program. 



129 TEMP = XLNGTK/'TERMSR 

IF (TEMP.GT.l.O) TEMP = 1.0 
CASH(I) = CASH(I) + ACCRSC(I) * TEMP 
ACCREC ( I ) = ACCREC(I) * (1.0 - TEMP) 

TEMP = XLNGTH/TERM5P 
IF (TEMP.GT.l.O) TEMP = 1.0 
CASH(I) = CASH (I) - ACCPAY(I) * TEMP 
ACCPAY(I) = ACCPAY(I) * (l.O - TEJP) 

Where: TERM3R = the term in months in which the total amount of 
accounts receivable will be collected 
TERM3P = the term in months in which the total amount of 
accounts payable will be paid 
TEMP = a temporary holding variable 



66 



The two variables indicated above as TERN3R and TERMSR are para- 
meters set by the model administrator at the beginning of the simulation. 
They determine the amount of time it takes to collect all of the receiv- 
ables of a company, and the amount of time it takes to pay all of the 
payables of a company. The value of these variables must be read into 
the computer in months. A fraction is computed by dividing the length of 
the simulated time period in months by the value of either TERMSR or 
TERi-SP, whichever is being calculated. This fraction is limited to one 
in order to prevent more receivables from being collected than are 
outstanding, or more payables being paid than are due. It can easily 
be seen that it XLNGTH equals either TERMSR or TERM3P, the total amount 
outstanding will be either collected or paid, whichever is appropriate. 

Lease Transactions 

Transactions involved in the purchase, sale, reversion, and 
abandonment of leases are carried out as they occur. The first transaction 
to be discussed is the sale of leases by the model administrator. 



213 CASH(I) = CASH(I) - K0LD2 * CASHFT 

ACCPAY(I) = ACCPAY(I) + H0LD2 * (l. - CASHFT) 



221 IF ( NWELLS (II) .NE.O. AND.NDEAL.EQ.O) EQCOST(II) = HCLD2 * E3C3FT 
IF ( NDEAL. EQ . 0 ) . TANG( II ) = EQCOST(II) 

NPDATS(II) = KE3E3 + 1 
INTANG (II) = H0LD2 - TANG (II) 

Where: CASHFT = the per cent of the payment that must be in cash 

EQCSFT = the per cent of the purchase price that is estimated to 
be the cost portion related to the tangible equipment 
H0LD2 = a temporary variable representing the purchase price 
of the lease 
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First, the cash portion of the payment for the lease purchased is paid, 
which reduces the total cash of the company. The remaining portion of 
the payment is added to the accounts payable account of the company. 

Next, if the lease being purchased is a partially or fully developed 
lease, the program uses the parameter, EQCSFT, to determine how much of 
the purchase price is the cost of the tangible equipment on the lease. 

The purchase date of the lease is then recorded in the array, NPDATE(II), 
and the remaining part of the purchase price is considered as an 
intangible asset and stored in the array, INTANG(II). 

When the sale of a lease occurs between two companies, the 
transaction for the purchasing company is the same as if the lease had 
been bought from the administrator. The transaction for the selling 
company is handled in the following manner. 



220 H0LD1 = TANG (II) -r INTANG(II) 

IF ( H0LD2 . GT . H0LD1 . AN D . MES ES =N?D AT 2 ( II ) . GT . 6 ) GAINLT( NDSAL) = 
1 GAINLT(NDEAL) + K0LD2 - E0LD1 

IF ( H0LD2 . LT . H0LD1 . AMD . KES ES -NPDATS ( I I ) . GT . 6 ) XLOSLT(NDEAL) = 
1 XLOSLT(MDEAL) + H0LD1 - H0LD2 
IF (MBSES - UPDATE ( II ) . LE . 6 . AMD . SOLDI . GT . K0LB2 ) 

1 OTHLOS (NDEAL) = OTHLOS (NDEAL) - HOLD 2 + H0LD1 
IF (MESES - NPDATS ( II ) . L2 . 6 . AND . H0LD1 . LT . HOLD 2 ) 

1 OTHINC (KDE.IL) = OTHINC(NDEAL) + E0LD2 - HCLDl 
CASH (NDSAL) = CASH(NDEAL) + H0LD2 * CA3HFT 
ACCREC(NDEAL) = ACCREC (NDEAL) + HOLD 2 (l. - CSAHFT) 



Where: GAINLT (NDEAL) 

XLOSL'T (NDSAL) 

OTHLOS (NDSAL) 

OTHINC (NDSAL) 

H0LD1 

E0LD2 

NDEAL 



- the gain realized by the selling company on a 
lease held over six months 
= the loss realized by the selling company on a 
lease held over six months 
= the array holding the selling company's ordinary 
business losses 

= the array holding the selling company's income 
that is from other sources than normal operations 
= the total amount of undepleted and undepreciated 
assets of the selling company in the lease sold 
= the selling price of the lease 

= the variable that represents the selling company 



When one company sells a lease to another company, the selling 

company ordinarily realizes either a capital gain or loss. This gain 

or loss may be put into one of two classes, either it is a long term 

capital gain or loss or it is a regular business income or loss from a 

source other than normal operations. The classification into which a 

gain or loss falls is determined by the length of time a company has owned 

the asset. If the lease has been owned for more than six months, the gain 

or loss is considered long term. If the company has owned the lease for 

six months or less, the gain or loss is considered as a regular business 
18 

income or loss. 

The first and second Fortran statements above check to determine 
if there is a gain or loss and if the gain or loss can be classified as 
long term. The next two statements check to determine if there is a gain 
or loss and if it can be classified as regular income or loss. Only one 
of the four statements will be true for each transaction, and that 
statement will calculate the gain or loss and store it in the proper array. 

After all of the transactions for the simulated time period have 
been completed, the net long term gain, if any, is computed. 

IF (GAINLT ( I ) . GT . XL03LT ( I ) ) GAINLT(I) = GAINLT(I) - XLCSLT(I) 

IF ( GAINLT ( I ) . LE . XLCSLT ( I ) ) GAINLT (I) = 0.0 



The net long term gain is then held for tax purposes and will be 
explained later in the section of this chapter on taxation. All long term 
capital losses that cannot be matched against long term capital gains are 
considered ordinary losses and are matched against regular income. This 
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procedure of matching long term losses against regular income is contrary 

to the tax laws presently in force, however, it was executed in this manner 

because it was simplier to program and no carry back or carry over is 

19 

involved. Also, the model takes no action under Section 12^5 and 

Section 1250 of the tax law which concerns the recapture of depreciation 

20 

as ordinary income when a long term gain is realized. 

'The transactions involved in lease reversions concern the 
accounting for the intangible assets invested in the lease to be reverted. 

IF (KESSS-NPDATE(II) .LE.6) OTHLOW(I) = OTHLCS(I) t INTANG (II) 

IF (MESES-N?DATE(II).Gr.6) XLOSLT(I) = XLOSLT(I) + INTANG (II) 



When leases are reverted, the only capitalized asset invested in 
the lease is normally the bonus paid for the lease which is considered 
as an intangible asset. The two Fortran statements above determine if 
the loss is a long term or an ordinary loss and stores the amount in 
the proper array. 

The same method is used for the transactions involving lease 
abandonment, however, there may be some tangible assets that must be 
included and also the costs of abandoning the lease must be accounted 

for. 



■ 23 b WELLS = NWELLS(II) 

ABDC03(I) = ABDCOS(I) + WELLS * ABDNFT 

IF (MESES-NPDATE(II) .LE.6) 0THL03(I) = OTHLOS(I) + INTANG(II) 
1 + TANG (II) 

IF ( MES S3 -NPDATE ( II ) . GT . 6 ) XLCSLT(I) = XLOSLT(I) + INTANG(II) 
+ TANG (II) 

Where: AEDCOS(I) = the total abandonment costs of a company for the 

simulated time period 

ABDNFT = the cost per well of abandoning the lease 
WELLS = the number of wells on the lease being abandoned 
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‘The cost of abandoning the lease is considered a direct operating 
expense. It is computed by multiplying the number of wells on the lease 
being abandoned by the abandonment cost factor, ABDNFT. This abandonment 
cost factor is a parameter set by the administrator and is used to simulate 
the cost per well of filling in the wells, clearing the lease of tanks and 
piping, repairing the surface of the lease, and all other costs associated 
with lease abandonment. 

Lease Development Costs 

The first cost to be discussed under lease development is the cost 
of drilling a dry hole. 

EANDD(I) = EANDD(I) + DRYHCS 

Where: EANDD(I) = the array holding the deductible costs of exploration 

and development of the companies 

DRYHCS = the cost of drilling a dry hole 



When a dry hole is drilled, the cost of drilling the dry hole is 
written off as an expense. The cost per well is represented by the para- 
meter, DRYHCS, which is an estimated cost of drilling a dry hold to some 
average depth. 

When a discovery or development well is drilled, the cost of 
drilling must be broken into two segments: the intangible drilling costs 

that are immediately expensed and the tangible drilling costs that are 
stored in the array TANG(II) and must be depreciated. 



DRILCS(II) = DRILCS(II) + DRINTG 

CASH(I) = CASK(I) - CA3HFT * DRTANG 

ACCPAY(I) = ACCPAY ( I ) + (1.0 - CASHFT) * DRTANG 
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TANG (II) = TANG (II) + DRTANG 
EQCOST(II) = EQCOST(II) + DRTANG 

Where: DRILCS(II) = the total amount of drilling costs the company may 

expense for the lease during a simulated time period 
DRINTG = the intangible portion of the costs of drilling a 
well 

DRTANG = the tangible portion of the costs of drilling a well 



The intangible costs of drilling a well include all costs of 
clearing the land, making roads, completing the well, buying and instal- 
ling temporary equipment necessary for the. drilling operation, and 

21 

installing tangible equipment in the well. Tangible costs of drilling 

a well include the costs of the equipment in the well such as the cemented 

casing even though it is not recoverable, and the costs of all equipment 

on the lease such as pipelines, tanks, separators, etc., that is necessary 

22 

for the production of oil and gas from the well. The tangible drilling 
costs must also be added to the value of the equipment cost already on 
the lease in order that the proper depreciation rate will be calculated. 

As part of lease development, well treating costs are handled in 
a similar manner. If the fracturing or the acid treating of a well is not 
successful, the costs are expensed. 



68? EANDD(I) = EANDD(I) + FRCC05 

688 EANDD ( I ) * =* EANDD ( I ) + ACDCOS 

Where: FRCCOS = the average cost of fracturing a well 

ACDCOS = the average cost of acid treating a well 



The costs of a successful well fracture, of a successful acid 
treatment, of the installation of pumps, and of the installation of a 
secondary recovery system are all accounted for by the same method. 
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6?6 X = NWELLS(II) 
Z = X * FRCCOS 

Z = X * AC DC OS 



Z = X * ?K?C03 



Z = X * SECCOS 



631 EANDD(I) = EAMDD(I) + Z * 0.4 
I = Z * 0.6 

TANG (II) = TANG (II) + Y 
CASH(I) = CASH(I) - Y * CASHFT 
ACCPAY(I) = ACCPAY ( I ) + (l. - CASHFT) * Y 
EQCOST(II) = EQCOST(II) + Y 

/ 

Where: PMPCOS = the total cost of installing a pump on one well 

SECCOS = the total cost of installing a secondary system on 
one well 

Y = the tangible portion of the cost 

Z = the total of fracturing, acid treating, installing 

pumps, or installing a secondary recovery system on 
a lease 



It should be clear that part of the costs of the installation of 
pumps and a secondary system such as the cost of the necessary equipment, 
should be capitalized as tangible costs, and that the rest of the costs 
such as the labor to install the equipment, should be expensed as intangible 
costs. It is not so clear how the costs of a successful fracture or acid 
treatment should be handled. It was felt that since the well was of more 
value after the treatment, part of the costs of the treatment should be 
capitalized. The remaining costs should be expensed such as the costs 
of temporary equipment necessary to do the job. An arbitrary fraction 
of six-tenths was selected to represent that portion of the costs that 
are tangible costs. This portion of the costs must also be added to the 
cost of the lease equipment in order that the proper depreciation rate 
may be computed. 
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Equipment Renewal Costs 

The costs of renewing equipment on a lease are considered entirely 
as tangible costs. 



TANG (II) = TANG (II) + RENEW(I,K,2) 

CASH(I) = CA3H(I) - RENEW ( I, K, 2) * CASHFT 
ACCPAY(I) = ACCPAY(I) + REN2W(I,K,2) * (l. - CASHFT) 

Where: RENEW(I,X,2) = the amount paid for the renewal of equipment on 

the lease 



Any amount of capital spent on the renewal of lease equipment 
will be capitalized as a tangible asset as indicated by the first Fortran 
statement above. The company's cash and accounts payable are adjusted 
accordingly. 

Depreciation and Depletion Accounting 

The calculation of depreciation and depletion was discussed in 
the previous section of this chapter on lease accounting. The tangible 
assets of the lease are reduced by the amount of the depreciation, and 
the intangible assets of the lease are reduced by the amount of the deple- 
tion. 



TANG (II) = TANG (II) - DEPREC(II) 
INTANG( II ) * =* INTANG ( II ) - DEPLET(II) 



The Financial Status Sheet 

As previously mentioned, the Financial Status Sheet is actually 
a scoreboard that displays each company's financial status. It also 
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shows some of the aspects of the industry in which the company is 
competing. The Financial Status Sheet is divided into four parts: 
the income statement, the balance sheet, the decisions and environment, 
and the remarks section. 

The income statement is the first section of the Financial Status 
sheet to be discussed. The purpose oi the income statement is to show the 
flow of the company's funds during the simulated time period. The result 
of the income statement shows the net profit and the change in the 
stockholder's equity for each simulated period. 

The first item on the income statement is the revenue for the 
sale of oil and natural gas. 

621 TOTREV = TOTREV + REVNUE(II) 

where: TOTREV = the total amount of revenue realized from the sale 
of oil and natural gas by a company 



The total revenue from the sale of oil and natural gas realized by 
a company is computed by adding the revenue from all of its producing leases. 
The next item to be discussed are the operating expenses. 



657 DELAYS = DELAYS + ACRES ,/l2 



TOTSYL = TOTRYL + ROYLTY(II) 

TOTOPC = TOTCPC + 0?CC3T(II) 

TOTDPR = TOTDPR + DEPRSC(II) 

TOTDPL = TOTDPL + DEPLET(II) 

Where: DELAYS = the total amount of delay rentals paid by a company 
TOTRYL = the total amount of royalties paid by a company 
TOTOPC = the total operating cost of a company 
TOTDPR = the total depreciation deduction allowed a company 
TOTDPL = the total depletion deduction allowed a company 
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The total amount for each expense is found by summing the expenses 
of all the leases that a company owns. The abandonment costs are not shown 
at this time because the method used was given previously in the section 
on abandonment costs. Drilling costs are not shown also, for it was 
demonstrated previously in the discussion of lease development costs. 

Net operating income is now computed by summing up all of the 
operating expenses and subtracting that amount from the total revenue. 



TOTOPE = TOTRYL + DELAYR + DRILL + TOTOPC + TOTDPR + TCTDPL 
1 + ABDCOS(I) 

OPNET = TOTRSV - TOTOPE 

Where: TOTOPE = the total operating expenses for the company 

DRILL = the total amount of the intangible drilling costs for 
the company 

OPNET = the net operating income of a company 



A company may have other income than the revenue from the sale of 
gas and oil. This income may be either capital gains or dividends received 
from its investments. 



706 DIVREC = D'/RATE * INVEST (I) * TIME AC 



CPGAIN = GAINLT(I) + OTHINC(I) 

Where: INVS3T(I) = the amount a company has invested in outside investments 
DVRATE = the amount of the dividend rate per year 

DIVREC = the amount of dividends received for the simulated 

time period 

CPGAIN = the total amount of capital gains of a company 



The dividends received by a company are the return from its 



investments in other companies outside the industry. This dividend is 
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computed by multiplying the annual dividend rate, DVRATE, times the amount 
of the investment of the company times the fraction of a year that the 
simulated time period represents. The dividend rate is a parameter set 
by the model administrator at the beginning of the simulation. 

Capital gains are the sum of the long term capital gains and the 
regular income realized on the sale of a capital asset. 

The next item on the income statement to be discussed is termed 
as other expenses. Cther expenses may be defined as those company 
expenses that are not directly related to the operation of a lease. 

INTPAY = (SILO AN (I) * STRATE + BONDS (I) * BDRATS) * TIMFAC 
CPL0S5 = XL03LT(I) * CTHLOS(I) 

Where: INTPAY = the total interest on the debts of the company 
S TRATE = the short term loan interest rate 
BNRATE = the bond interest rate 
CPLOSS = the total capital losses for the company 



Interest paid is the interest on all outstanding loans and bonds, 
and is computed by multiplying the appropriate rate, 5TRATE for short term 
and BDRATE for bonds, times the amount of each that is outstanding. 

Capital losses are similar to capital gains in that they are the 
sum of the long term capital losses plus the regular losses realized on 
the sale of a capital asset. 

Administrative expenses were computed as a percent of the total 

assets. 

ADMIN = ASSETS (I) * .02 
IF (ORCARY(I) .LE.0.0) GO TO 707 
X = ADMIN * ORC ARY (I ) / ORB AS E * 0.1 

I 

1 

i 
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IF (X.GT.ADMIN*0.5) X = ADMIN * 0.5 
ADMIN = ADMIN -X 



ORCARY(I) = CRCARY ( I ) + OPRSS(I) 

Where: ASSETS (I) = the total assets of a company at the beginning of 

the simulated period 

ORCARY(I) = the total amount a company has invested in operations 
research 

OPRES(I) = the amount of funds invested in operations research 
for this simulated period 

CREASE = a parameter used as a base for investment in 
operations research 



Administrative expenses were computed as described in the following 
discussion, for it was felt that these expenses would probably be more 
of a function of total assets then of any other one item. As the model 
is constructed, administrative expenses may be decreased by investing in 
operations research. The total amount of funds invested in operations 
research is compared with the parameter 0RBA3E which is set by the model 
administrator at the beginning of the simulation and should not be divulged 
to the companies during the simulation. Investments by a company in opera- 
tions research will not effect administrative expenses for the simulated 
period in which the investment was made, but the investment will affect 
the following period. 

The exploration and development expenses are expenses connected 
with the exploration and development of the leases and are generally those 
expenses that are connected with leases which are not capitalized. 

The total of these expenses is found by simple addition. 



OTKEXP = INTPAY + .ADMIN ^ EANDD(I) + OPRES(I) + CPLOSS 
H0LD1 = 0.85 * DIVREC 

PRETAX = OPNET + TOTING - OTHEXP - GAINLT(I) 
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Where: OTHEXP = the total amount of a company's other expenses 
H0LD1 = the total amount of tax deductable dividends 
PRETAX = the amount of taxible income 



Before federal and state taxes can be computed, the net taxable 

income must be determined. The net long term gain has already been 

calculated. The amount of deductable dividends is computed by multiplying 

the total amount of dividends received by eighty-five per cent. This is 

in keeping with the tax laws that state, in effect, that corporations may 

deduct eighty-five per cent of dividends received from other taxable 

23 

domestic corporations. The net taxable income is calculated by adding 
the net operating income to the total other income and then subtracting 
the total other expenses, the deductible dividends, and the net long term 
gain. 

The model assesses the companies two classes of taxes: (l) federal 

income tax, and (2) state severance tax. The federal income tax is broken 
into two parts which are the normal federal corporation tax on income, and 
the tax on long term gains. 



TOTGRO = TOTGRQ + GROSS (II) 



STATAX = STAIR * TOTGRO 

FEDTAX = FTAXR * (PRETAX - STATAX) 

IF (PRETAX-STATAX.LT 0.0) FEDTAX 0.0 

T AXLTG V . 25 * * ’ GAINLT ( I ) 

Where: GROSS (II) = the gross income of a lease 

TOTGRO = the total gross income of all producing leases of 
) a company 

= the state severance tax rate 
= the amount of state tax paid by a company 



STAXR 

STATAX 



FTAXR 

FEDTAX 

TAXLTG 
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= the federal income tax rate 

= the amount of federal income tax paid by a company 
= the federal tax on long term capital gains 



The gross incomes, which are the gross revenues minus the royalties 
paid, of all leases owned by a company are added together to produce the 
total gross income from the production of oil and gas which is stored in 
the variable, TOTGRO. The total state severance tax paid by a company is 
computed by multiplying the total gross income times a state tax rate, 
STRATE, that is a parameter set by the model administrator. The state 
tax is deducted from the net taxable income before the normal federal 
income tax is computed. If the net taxable income is less than the state 
tax, the federal tax will be equal to zero. The federal tax is calculated 
by multiplying the. federal tax rate, FTAXR, times the result of the net 
taxable income minus the state severance tax. 

The last tax that is charged is the tax on the long term gains. 

Corporations may not take a deduction of part of their long term capital 

gain as individuals do, however, they may allow themselves to be taxed 

at the rate of twenty- five per cent times their net long term capital 
24 

gains. The net long term capital gain in this case is the long term 
capital gains less the long term capital losses and less the short term 
capital losses. 

The companies pay all taxes,, as they occuij from cash. 



CASH(I) = CASH(I) - STATAX - FEDTAX - TAXLTG 
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After the taxes are settled, the net income for the period and 
the change in stockholder's equity is computed. 



NETINC(I) = PRETAX - STATAX - FEDTAX - TAXLTG + GAINLT(I) + KCLD1 



731 EQUITY = NETINC ( I ) - PENLTY - DIVPAY + SELL - 3IST0K 

Where: NETINC (I) = the net income of a company 

EQUITY = the change in the stockholder's equity for the period 

SELL = the amount of money realized from selling stock 

BI5T0K = the cost of buying stock 

PEN7LY = the penalty paid for attempting to beat the model 



Net income for a company is determined by subtracting the taxes 
paid from the net income before taxes. The change in stockholder’s equity 
is calculated by subtracting the penalties paid, the dividends paid, and 
the stock purchased from the sum of the net income and the stock sold. 

The balance sheet mainly reflects the distribution of the assets 
and liabilities of a company. Most of the calculations have already 
been given, such as many of those for cash and accounts receivable. The 
capitalized tangible and intangible assets are added for all of the leases 
of a company. 



TOTTAN = TOTTAN + TANG(II) 

TOTINT = TOTINT + INTANG (II) 

Where: TOTTAN = the total tangible assets of a company 

TOTINT = the total intangible assets of a company 

After all transactions have been completed for the period, the 
total assets are computed by summing all of the individual asset accounts 
of a comoany. 



I 
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ASSETS (I) = CASH(I) + ACCREC(I) + TOTTAN + TOTINT + INVEST(I) 
Where: ASSETS (I) = the total assets of a company 



Most of the liabilities have been explained in the previous 
discussion of this section. Retained earnings and the total liabilities 
are calculated in the following manner. 



H0LD2 = RTEARN(I) 

RTEARN(I) = RTEARN(I) + NSTINC(I) - PENLTY - DIVPAY + ADD 
740 TOTLIB = ACCPAY(I) + STLOAN(I) + BONDS (I) + PAYCAP(I) + RTEARN(I) 

Where: RTEARN(I) = the retained earnings of a company 
TOTLIB = the total liabilities of a company 

H0LD2 = a temporary variable representing the retained 
earnings of a company from the previous period 
ADD = the depletion taken on a lease that cannot be matched 

to a capitalized intangible asset of the lease 



The retained earnings amount is found by adding the previous 
retained earnings, the net income for the period, and the depletion that 
cannot be matched against the capitalized intangible assets of a lease, 
and subtracting from this sum the penalties and dividends paid during the 
simulated time period. The total liabilities is the sum of all the 
liability accounts of a company. 

The market quote and the book value of the stockholder's equity 
are computed by the following method. 



MQUOTE(I) = MQUOTE(I) + (RTEARN(I) - H0LD2 / RTEARN ( I ) * KQUOTE(I) 
IF (KQUOTE ( I ) . LT . 1 . 0 ) KQUOTE(I) .LT.1.0) XQUOTE(I) = 1.0 
MQUOTE(I) = MQUOTE(I) - MJ.UOTE(I) * (DIVBAS - DIVDND(l))/DIVBAS 
1 * QUOTFT 

IF (MQUOTE(I). LT.1.0) MQUOTE(I) = 1.0 



742 BOCK = (PAYCA?(I) + RTEARN ( I ) ) /SHARES ( I ) 
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Where: MQUOTE(I) = the price a company's share of stock will sell 

for on the open market 

DIVDND(I) = the dividend per share that is paid by a company 

DIVBA3 = a base dividend that should be paid by a company 

BOOK = the book value of the stockholder's equity 



The selling price of a company's stock on the open market or the 
market quote is thought to be the attractiveness of the company as an 
investment. People will normally like investments that give them a 
return on their money plus some growth indication in the company. The 
attempt to simulate these two factors has been made in computing the 
market quote. The first new market quote is determined by the per cent 
change in the book value of the stockholder's equity that is the 
result of company operations. The final market quote is computed by 
comparing the dividend being paid by the company to an average base 

! 

dividend that would be paid by a normal operating company. This base 
dividend is a parameter set by the model administrator at the beginning 

i 

of the simulation. 

The book value of the stockholder's equity is calculated by 
dividing the sum of the oaid in capital and the retained earnings by 
the number of the shares of the company's stock that are outstanding. 

One of the final calculations to be made by the model is to 
determine if a company may need an emergency loan. 



IF (CASH(I) .LE.O.O. ) GO TO 703 
EMERG = ABS(CASK(I)) * 1.1 
CASH(I) = C.O 

703 STLOAN(I) = STL0\N(I) + EMERG 

Where: EMERG = the amount of the emergency loan that a company is forced 
to take 



i 
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The emergency loan procedure is set up to keep a company's cash 
account from having a negative balance. If it does go negative during 
the company's transactions and remains negative after all transactions 
are completed, the company is forced to take an emergency loan to make 
the balance of the account equal to zero. When the emergency loan is 
taken, it is automatically discounted at the rate of ten per cent and 
then added to the short term loan total. 

The decisions and environment section of the Financial Status 
Sheet displays some of the decisions made by the company some of the 
effects of those decisions, and some other information that the company 
may desire to know. 

The remarks section is utilized to print penalty statements 
which are to inform the company that it has attempted to violate the 
rules of the simulation, and provides a space for the growth of the 
Financial Status Sheet if future development of the model so warrants. 



CHAPTER V 



INSTRUCTIONS TO CONDUCT THE SIMULATION 
Introduction 

The purpose of the oil industry model, as stated in the title 
of this thesis, is to provide instructors with an engineering-management 
training aid. In order for it to accomplish its purpose, instructions 
must be written to guide both the student and the instructor, the 
model administrator, in the procedures recommended to conduct the 
simulation. This is the purpose of this chapter. 

The first part of the chapter is entitled The Student's Pamphlet 
and contains a brief description of the model, the recommended procedures 
to follow during the simulation, a list of decisions to be made, a descrip- 
tion of the format of the decision cards and their arrangement, and a 
decision work sheet. Each student should be provided with a pamphlet 
far enough in advance of the start of the simulation that he may have 
the opportunity to familiarize himself with its contents. 

The second part of the chapter is entitled The Model Administrator's 
Pamphlet and includes instructions for assigning parameters, suggestions 
for tailoring the model, descriptions of the arrangement and format of 
the parameters, suggested values for the parameters, the arrangement 
of the final deck, and the recommended procedures to conduct the simulation. 
Each model administrator should have one of these pamphlets to refer to 
during the simulation, however, this thesis should be his primary source 
for information concerning the model if a problem develops and the solution 
is not apparent. 
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The Student's Pamohlet 



Model Description 

The computor model, Paydirt, is programed in Fortran IV 
programming language. It is a simulation of an industry of independent 
oil companies that buy and sell oil property leases; revert, develop, or 
abandon the leases they have bought; buy and sell stock of their own 
company; and invest in companies outside the industry. As presently 
programed, the number of companies in the industry is limited to five. 

Whenever oil property leases are bought and sold, a bonus is 
normally paid to the leasing party to obtain the lease. The leasing party 
will usually lease to the company offering the highest bonus. When bids 
for leases are made, the bids are not to purchase the oil property, but 
the bids are made for the right to lease the property. 3ids may be for 
any amount above the minimum bid which is disclosed on the lease description. 

The program will pick out the highest bid and award the lease to the 
company that made that bid. Should two companies make the same bid, and 
that bid is the high bid, the winner of the bid will be picked by random 
selection. A bid will not be recognized by the program if the lease is 
not on the list of available leases for sale by the model administrator, or 
if the lease is not offered for sale by another company. 

Companies may sell leases to other companies at any time as long 
as the company owns the lease it is attempting to sell. The sale between 
two companies may be a private deal, or a company desiring to sell a lease 
may make that fact and the acceptable minimum bid known to the other companies. 
When a company desires to sell, the number of the lease being sold is punched 
into the first lease bid card with a minus sign before the number in the 
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proper format. The minimum bid desired is punched in the corresponding 
field on the second bid card in the proper format. Companies will be 
penalized for attempting to sell leases that they do not own. 

If a company buys a lease and drills a dry hole on it, it is 
recommended that the company revert the lease as soon as possible. If 
it is not reverted, the program may charge a company a delay rental 
charge for the time the lease is held. Only leases without producing 
wells may be reverted. 

Abandonment of a lease should occur only when the lease has been 
depleted to the point where it is no longer economical to produce oil or 
gas from it. Companies may abandon a lease at any time, however, when a 
lease is abandoned, it removes the lease completely from circulation and 
the abandoning company is charged a fee per well for abandoning. The fee 

i 

simulates the closing in of the wells, removing equipment from the lease, 
and restoring the surface of the lease to some reasonable condition. 
Companies are warned not to attempt to abandon a lease they do not own. 

The first step in developing an unproven lease that a company has 
acquired is to drill an exploratory well. The exploratory well will be 
the first well to be drilled on any unproven lease. Cnee the exploratory 
well shows that oil has been found, or the lease acquired already has 
producing wells on it, development wells may be drilled at the rate of 
four wells per month until a well is a dry hole. All wells drilled on a 
lease, after a dry hole has been drilled on the lease, will also be dry. 

If during a simulated time period a well on a lease is a dry hole, the 
program will drill no more wells. Also, a dry hole drilled on a producing 
lease is an indication that the limit of producing wells has been reached. 
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When a producing well has been drilled, the well is assigned a 
well factor which determines the rate of production of the well. A 
maximum rate of oil production is calculated and multiplied times the 
well factor of each well on the lease to determine each well's production 
for the month. This production is summed to find the total production of 
the lease for the month. The production of oil may be limited by an oil 
allowable. A producing gas-oil ratio is also calculated and multiplied 
times the oil produced to calculate the gas production from the lease. 

A gas allowable may also limit the production of oil from the lease. 
Companies have no control over the production of oil and gas from the 
leases they own. 

Should a lease not produce at the desired rate, the owning company 
may do any of the following procedures to imporve well performance: (l) 

they may fracture the wells on the lease, (2) they may acid treat the 
wells on the lease, ( 3 ) they may install pumps on the lease, or (4) they 
may install a secondary recovery system on the lease. Wells may be 
fractured and/or acid treated at any time but only the original attempt 
of each treatment may be successful during the life of the well. These 
treatments will not be successful once pumps have been installed on the 
wells. Pumps must be installed on a lease before secondary recovery can 
be installed, and neither can be installed until the maximum production per 
well is less than the oil allowable. ‘ If a company attempts to install pumps 
or secondary recovery prematurely, the program will ignore these attempts. 

As oil and gas are produced on a lease the equipment necessary for 
production grows old and wears out, and the operating and maintenance 
costs increase. These costs are the variable costs of operating the 
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lease, and the companies may reduce these costs by investing in new 
equipment. 

There are many other costs involved in the program. Charges are 
made for drilling wells, fracturing and acid treating wells, and instal- 
ling pumps and secondary recovery systems. Administrative costs are 
determined by multiplying a per cent times the total assets of a company. 
These administrative costs may be reduced by investing in operations 
research. Royalties are also paid by the companies to the land or 
royalty owners. Delay rental charges are made against a company if they 
do not drill on the lease within one year after purchase of the lease. 

As another cost, interest is paid on all outstanding loans and bonds 
that a company is liable for. All costs that can be capitalized, are 
capitalized as tangible or intangible assets. The tangible assets are 
reduced by depreciation, and the intangible assets are reduced by depletion. 

Depreciation and depletion is computed for each lease and added 
to determine the total amount allowed to a company. Companies may choose 
the method of computing depreciation: method number one is the straight 

line method, method number two is the double declining balance method, and 
method number three is the sum-of-the-years digits method. Alien switching 
depreciation methods* the rule of present tax laws must be followed. 
Companies have no choice in the method used in computing depletion. The 
amount of depletion deduction will be the maximum amount allowed. 

At the beginning of the simulation, all companies will be given 
the same amount of assets and liabilities. They will be identically 
. distributed, i.e. each company will have the same amount of cash, the 
same amount of accounts receivable, the same amount of accounts payable, 
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the same amount of paid in capital, etc. Should a company need more 
capital to cover its costs, it may acquire extra capital by borrowing 
a short term loan, by selling bonds, and by selling company stock. If 

i 

a company decides that it has too much cash on hand, it may invest the 
cash in other domestic companies outside the industry and receive dividends 
from the investment, or the company may invest in its own stock, thereby 
saving on the dividends that must be paid to its stockholders. 

If a company runs out of cash during their transactions, the 
company is required to take an emergency loan to complete their transac- 
tions. The emergency loan is automatically discounted at the rate of 
ten per cent and is then added to the short term loan total. 

A market quote is computed for each company to indicate how ire 11 
the company is doing and to establish a price for the buying and selling 
of the stock of the company. This quote is based upon the trend of the 
change in the book value of the stockholder’s equity due to operations 
and upon the amount of the dividends paid by a company. 

The model provides each company with three reports: (l) a lease 

development report, (2) a lease production and cost report, and a company 
financial status sheet. These reports are to provide a picture of how the 
company fared as a result of the decisions it had previously made. 

Recommended Procedures 

The following procedure in making company decisions is recommended: 

1. Companies should read through the lease descriptions and 
analyze them to determine what the chance might be of finding oil under 
each unproven lease and to estimate if the asking price is worth the chance. 
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For producing leases, the companies should attempt to determine if the 
lease will provide a favorable return on the money required to be invested. 

2. Once the decision has been made as to which leases are to be 
bid upon and how much is to be bid, companies should elect a method of 
depreciation for tangible assets even though they do not know who will 
be the owner of the lease. 

3. It is advisable for companies to request to drill on the 
leases that they have bid upon. This is assuming that the company has 
the funds to cover the costs of these requests. 

k. Companies should estimate the capital necessary to accomplish 
the transactions they are requesting, and request extra capital if their 
estimates show that they do not have enough. Likewise, if companies 
believe that they have too much capital on hand, they should invest the 
extra capital. 

5. Companies should determine how much fringe benefits they would 
like to pay their employees in order to avoid a strike. Also, if there 

is no labor contract in force, companies should decide the wage rate they 
would like to pay their employees. 

6. The stockholders would like their share of the profits, so the 
companies should decide how large a dividend they can afford to pay. 

The amount decided upon should be for a quarter of a year. 

7. If administrative expenses are too high, companies should 
decide how much money to invest in operations research. 

3. Companies should analyze the production from their producing 
leases and attempt to determine if it is desirable to fracture or acid 
treat the wells of a lease, install pumps or secondary recovery on the 
lease, or abandon the lease. 
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9. A check should be made to determine the trend of the operating 
costs of each lease. If they appear to be getting too high, a decision 
should be made as to how much money should be invested in new equipment 
for the lease if any. 

Preparation of the Decision Deck 

The first decision card of the decision deck contains the request 
for the amount of dividends to be paid to the stockholders, the request for 
a short term loan, the request for a long term loan in the form of a bond 
sale, the request to invest in outside domestic companies, the request 
to buy or sell it's own stock, the request for a wage rate per hour to 
be paid to the company employees, the request to invest in operations 
research, and the request for the fringe benefit rate per hour to be 
paid to the company employees. 

The second decision card to be prepared is the card containing the 
lease numbers of the leases the company is bidding for. The format for 
this and all of the other decision cards is indicated on the diagram of 

the arrangement of the decision deck on the following page. The next 

card should contain the amount bid for each lease punched in the field 
corresponding to the field in the second card where the lease number is 
located. 

The decisions to revert or abandon leases are punched in the fourth 
decision card. The first four fields should contain the lease numbers 
of the leases to be reverted and the last four fields should contain the 

lease numbers of the leases that are to be abandoned. 

The next two cards of the decision deck are for equipment renewal. 
The first card contains the lease numbers of the leases on which it is 
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Company Decision Deck 



/ 1st lease 1 2nd lease 1 3rd lease 
/ number number number 

' PUMP INSTALLATION REQUE. 


iith lease 
number 
3TS 

FORMAT 


1st lease | 
number 
SECONDARY 
(SF10.0) 


2nd lease 
number 
RECOVERY I 


3rd lease 
number 
NSTaLLATIO! 


iith lease \ 
number 
•1 REQUESTS 


/ist lease 
/ number. 


2nd lease | 
number 
FRACTURE 


3rd lease 
number 
REQUESTS 


Lth lease jlst lease | 2nd lease |3rd lease | 
n ’amber number number number 

ACID TREATMENT REQUEST 

FORMAT (8F10.0) 


Lth lease ^ 
number 

> 


/ number of 1 
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number of | 
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number of ^ 
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/ 1st lease 1 
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6th lease | 
number 
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7th lease | 
number 
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3th lease ^ 
number 
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number 
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number 
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DEPRECIATION IS TO Bt 
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number 
Z COMPUTED 
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/ number 
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2nd lease 
number 
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3rd lease 
number 
WHICH DEPR 


hth lease |5th lease | 6th lease | 
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ECIATION METHOD IS TO BE CHANGE! 
FORMAT (1018) 


7th lease | 3th lease 
number number 
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/ amount 
/ invested 


amount amount 

invested invested 

AMOUNT INVEST. 


amount | amount 
invested invested 
3D IN EQUIPMENT RENEWi 
FORMAT (8F10.2) 
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invested 
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amount 
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amount ' N 
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FORMAT (3F10.2) 


| 6th lease 
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| 3th lease 
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|2nd lease 
number 
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|2nd lease 
number 
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|3rd lease 
number 
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jiith lease N 
number 


/ amount 
f bid 


amount 

bid 


amount 

bid 

A] 


amount 

bid 

COUNTS BID 
FORMAT 


amount 

bid 

FOR LEASES 
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amount 

bid 


amount 

bid 


amount ^ 
bid 


Ast lease 
/ number 


|2nd lease | 3rd lease |iith lease |5th lease |5th lease |?th lease 
’ number number number number number number 

LEASE NUMBERS OF LEASES FOR WHICH THE COMPANY IS BIDDING 

FORMAT (SF10.2) 


1 3th lease 
number 


/ DIVIDEND 
/ PAYMENT 
REQUEST 


SHORT TERM 
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BOND j INVESTMENT SHARES TO 

REQUEST REQUEST BUY OR 

SELL 

FORMAT (3F10.2) 
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WAGE RATE 
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Ioperations 

RESEARCH 
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| FRINGE N 

BENEFIT 
REQUEST 
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desired to renew equipment. The next contains the amount of funds a 
company desires to invest in new equipment for the leases whose lease 
numbers are punched in the corresponding fields of the first card. 

The election of depreciation methods are punched in the next 
two cards. The lease numbers for which the election is made is punched 
in the first card, and the method number is punched in the corresponding 
field of the second card. 

The next two cards should contain the request to drill. Again, 
the first card contains the lease numbers of the leases on which it is 
desired to drill. The second card should contain the number of wells 
the company wishes to drill on the leases whose lease numbers are punched 
in the corresponding fields of the first card. 

The next card contains the requests to fracture or acid treat 
the wells of a lease. The first four fields of the card should contain 
the lease numbers of the leases on which the wells are to be fractured. 
The last four fields contain the lease numbers of the leases on which 
the wells are to be acid treated. 

The last card of the decision deck contains the decisions to 
install pumps or a secondary recovery system on leases on which it is 
desired to install pumps. The last four fields should contain the lease 
numbers of the leases upon which it is desired to install a secondary 
recovery system. 

The cards of the decision deck will be arranged in the order 
described here, and illustrated on the previous page. 

On the following page is an example of the work sheet on which 
to make the decisions. These will be provided to each of the companies. 
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Parameter List for Company Information 

1. The length of the simulated time period in months. . . 

2. The maximum number of leases a company may own. . . . 

3. Penalty for attempting to beat the model. 

U. The selling price of oil per stock tank barrel. . . . 

5. The selling price of gas per thousand cubic feet. . . 

6. The abandonment costs per well, ............ 

7. The federal tax rate. . 

8. The state severance tax rate 

9. The bond interest rate. ...... 

10. The short term loan interest rate 

11. The royalties paid as a per cent of gross revenue. . . 

12. The outside investment dividend rate 

13. The tangible costs of drilling a producing well. . . . 

111. The intangible costs of drilling a producing well, . . 

15. The costs per well of fracturing . . 

16. The costs per well of acid treating, ......... 

17. The costs per well of installing pumps 

13. The costs per well of installing secondary recovery. . 

19. The costs of drilling a dry hole 

20. The oil production allowance per well per month. . . . 

21. The gas oroduction allowance per well per month. . . . 
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On the second page following, is a list of the parameters that 
are set by the model administrator and that may be provided to the 
companies at the discretion of the administrator. The values that the 
administrator desires to provide the companies with will be indicated 
in the column as labeled. 

The Model Administrator * s Pamohlet 

Introduction 

The Model Administrator’s Pamphlet is basically a guide for the 
use of the administrator in the execution of the engineering-management 
simulation, Paydirt. • It provides him with instructions for assigning 
parameters, procedures to conduct the simulation, methods that may be 
used to tailor the model, and recommendations for parameter values. The 
administrator's main source of information is the thesis, "Paydirt, A 
Simulation of an Industry of Independent Oil Companies for Use as an 
Engineering-Management Aid." 

Assigning Parameters 

Parameters have been defined to be those attribute values which 

2 <; 

do not change during the simulation. They need to be assigned only 
once, at the beginning of the simulation. If the parameters are changed 
during the simulation, the companies should be told of the change. Also, 
even though the definition states that they should not be cnanged, it 
is advisible to change the parameters if it is found that the model is 
not reacting as expected possibly because poor values were picked to begin 
with. It may be desired to change some of the parameters to simulate 
certain conditions within the simulation such as having the labor contract 
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terminate, or having fluctuating gas and oil allowables. Parameters 
should be chosen with care in order that the model be kept as realistic 
as possible. There is a list of parameters, their definitions, and some 
recommended values on the following page. Further discussion of assigning 
parameters will be included in the section on tailoring the model. Initial 
values have been assigned in the starting deck provided. 

Instructions for the Execution of the Simulation 

This model is designed to provide instructors with an additional 
method of instructing their students in the use of engineering and 

I 

financial tools and to help them to analyze data and make decisions based 
upon that analysis. It has been the aim of the author to construct the 
model in order that the administrator (the instructor) will have to do as 
little of the mechanics as possible. There are, however, a few tasks to 
be performed. 

The administrator will need copies of the initial starting point 
Financial Status Sheet, a list of leases available for sale, and a sample 
Lease Report to distribute to the students. These can be obtained by 
assigning a period length of zero and the number of copies desired for 
each company in the proper fields in the second card of the starting 
deck provided, and submitting the program to be nan on the computer. 

Do not forget to change the period length before starting the first 
simulated period. 

Before the first meeting with the students, the administrator 
should have an ample supply of Student's Pamphlets, with the parameter 
list filled in, and Decision Worksheets. These along with the sample 
output described above should be distributed at the first meeting. The 
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Lis t of Parana te rs 

VARIABLE RECOMMENDED DESCRIPTION 



NAME 


VALUE 




ABDNFT 


2000.00 


The cost per •'.Tell of abandoning a lease. 


ACDCOS 


2000.00 


The cost of acid treating one well. 


ACDFAC 


0.15 


The chance that an acid treatment will not effect 
a well's performance. 


ACFLO'.Y 


1.30 


The factor to increase production for a successful 
acid treatment of a well. 


BDRATE 


0.05 


The rate of interest on bonds. 


BEN3AS 


0.20 


The basic benefit rate. 


BENFIT 


(start). 20 


The factor to control the option of having 
companies vary fringe benefits. 


CA5HFT 


o.5o 


The portion of a cbllection or payment that will 
affect the cash account. 


DECLN 


0.9-0 


The factor to change the rate of decline after 
a well has be treated. 


DIVBAS 


1.00 


The basic quarterly dividend rate. 


DRINTG 


12000.00 


The amount of drilling cost assigned as an 
intangible asset. 


DRTANG 


7000.00 


The amount of drilling cost assigned as a 
tangible asset. 


DRTHCS 


13000.00 


The cost of drilling a dry hole. 


DVRATE 


0.02 


The dividends received as a percent of the total 
outside investment. 


EQCSFT 


0.60 


The fraction of the cost of a producing lease 
that is assigned as equipment cost. 


FINE 


5000.00 


The penalty fine attempting to break the rules 
of the simulation. 


FRCCOS 


Uooo.oo 


The cost to fracture one well. 


FRCFAC 


0.15 


The chance that a fracture job will not affect 
well oroduction. 
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FRFL077 


1.50 


FMR 


O.liS 


GASALVY 


8000.00 


GPRICE 


0.16 


MAXOiVN 


20 


NPLAY 


5 


OILAUY 


1 ^ 00.00 


OPRICE 


3.00 


ORB AS E 


100,000.00 


PAYBAS 


3.00 


tf.iFLOV, r 


3.00 


aipcos 


8000.00 


QUQTFT 


.50 


RLABOR 


3. CO 


RQYL 


0.125 


SECCOS 


10,000.00 


SRFL07/ 


h.00 


STAXR 


0.02 


STKFAC 


0.50 



The factor to increase production for a 
successful fracturing of a well. 

The federal income tax rate. 

The allowable production of gas from a well 
per month in KSCF. 

The price of natural gas per LiSCF. 

The maximum number of leases a company may 
own at any one time (limited to twenty). 

The number of companies taking part in the 
simulation (limited to five). 

The allowable production of oil from a well 
per month in barrels. 

The selling price of oil per barrel. 

The base amount to be invested in ope rations 
research. 

The base pay rate to be paid to company employees. 

The factor to increase production because pumps 
were installed on the lease. 

The cost of installing a pump on one ’.Tell. 

The factor to vary the sensitivity of the market 
quote. 

The factor to control the option to allow 
companies to vary their pay rates for employees. 

The royalties paid as a per cent of gross revenues. 

The cost of installing a secondary recovery system 
per well. 

The factor to increase production due to the 
installation of a secondary recovery system. 

The state severance tax rate. 

The factor to vary the sensitivity of a strike. 
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STRATS 

TERh'SP 

terms a 



0.12 The short terra loan interest rate. 

12.00 'The period of time in months that all accounts 
payable Yd.ll be paid if no more are acquired. 

12.00 The period of time in months that all accounts 
receivable will be collected if no more are 
acquired. 

0.1? The base variable C 03 t factor to Produce one 
barrel of oil. 



VASCOS 
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students should be given sufficient time to become familiar with the 
material and have a chance to discuss it before they are required to 
start making decisions. 

When it is time to start the simulation with the first time period 
run, the administrator has the choice of having the companies key punch 
their own decision decks, or of having the companies submit their Decision 
Worksheets to him for him or his assistant to key punch. If the administrator's 
choice is the first one, he should be particularily careful that the cards 
have been punched in the correct format. When assembling the deck for 
submission, care should be taken to organize it in the correct order. 

There is a diagram of the correct order for the arrangement of the deck 
on the following oage. Also, the correct control cards for the computor 
system should be used to properly compile and run a Fortran IV source 
deck. Binary decks may be obtained to avoid the compilation time that 
is necessary with the source deck. 

Administrators are advised to start the simulation with a time 
period length of one month for the first two or three runs. After these 
first runs, it is recommended that the period lengths be increased to 
quarters and then to half years and then to years. The pace and/ amount 
of the increases will depend upon the students adaptation to the simula- 
tion. When dividing the students into companies, the administrator should 
be careful to insure that the special talent, i.e. the better engineers 
or the better financial managers, is spread among the companies. Also, 
it is advisable to start the simulation with a labor contract in force 
(RLA30R assigned the same value as PAY3AS and BSNFIT assigned the same 
value as BIN BAS ) . The result will be that the companies will not suffer 
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A Diagram of the Final Deck Arrangement for PAYDIRT. 
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a strike in the early months of the simulation at the time when they are 
getting acquainted with the model. 

To encourage participation and interest in the simulation, the 
administrator should make the simulation a part of the student's grade 
for the course it is being used for, and also, set a standard for pick- 
ing a winner at the end of the simulation. This standard may be a 
combination of factors from the Financial Status Sheet such as the 
market quote, the book value of the stockholder’s equity, the debt/ 
equity ratio, etc., and should be set at the beginning of the simulation. 

There are no apparent end effects connected with the simulation, 
however, this may not be true and can only be proven true with experience. 
To avoid any end effects that might occur, it is recommended that two or 
more decision decks be run simultaneously. This can be accomplished by 
changing the value on the variable NDECKS to the number of the decision 
decks to be run. NDECKS is the third bit of data on the first card of 
the carryover deck. The decision decks should be arranged back to back 
at the end of the complete deck. Another method to use to prevent end 
effects is to run the same decision deck through two simultaneous time 
periods. This may be accomplished by duplicating the decision deck, put- 
ting the duplicate behind the original deck, and changing NDECKS to two. 
With either of these methods, any radical decisions by a company would 
probably do that company more harm than good. 

Tailoring the Model 

There are some margins within which the administrator can tailor 



the model to fit the specific result that he may want from that simulation. 
There are three methods by which the tailoring of the model can be achieved: 



(l) the values assigned to the parameters, (2) the values assigned to 
the data deck, and ( 3 ) the cancellation of the companies right to make 
certain decisions. 

There are a number of variations that can be obtained by setting 
certain values for the parameters at the beginning of the simulation or 
during the simulation. If the administrator does not agree with the 
penalty aspect of the model, he may set this parameter equal to zero and 
completely eliminate it. The message concerning the attempted violation 
will still be printed on the company's Financial Status Sheet. If the 
administrator is not in accord with the strike feature of the model, he 
may set the strike sensitivity factor equal to zero and eliminate it. 

The degree of sensitivity of the strike feature can be altered by 
varying the strike sensitivity factor between zero and one. To allow 
the companies to vary employee wages and fringe benefits, the parameters 
RLABOR and BENFIT are set equal to zero. This permits the companies to 
vary wages within ten per cent of the base wage, and fringe benefit rates 
from zero to twice the basic benefit rate. This condition has been termed 
as no labor contract in force. 

The changes to be made during the simulation include the changing 
of the price of oil and gas to simulate seasonal variations, the variation 
of interest rates which would change the future value of money, and the 
variation of tax rates to simulate changes in government policy. As 
experience with the model is obtained, new ideas for changes will be 
apparent. 

The model may be tailored by arranging the values in the initial 
starting deck. If it is desired that the competition for leases be eliminated, 
certain leases may be picked and the same lease may be assigned to all of 



the companies but under different numbers. If it is desired that the 



chance of drilling a dry hole be eliminated, the geological factors 
may be made equal to one and every lease will be a producing lease. 

The disallowing of decisions is another method of tailoring the 
model. If the administrator decides to stress engineering, he may do 
so by not allowing financial decisions to be made. Even the bidding 
may be eliminated by assigning leases to companies. . The control of 
the administrator would be to check the decision deck before submitting 
it to insure that the decisions that are disallowed are not read in. 



CHAPTER VI 



CONCLUSION AND RECOMMENDATIONS 
Conclusion 

Paydirt is a model constructed to simulate independent oil 
companies and their operations. It is, at best, a crude simulation, 
for not only were the activities of the company itself modeled, but it 
was necessary to attempt to model oil reservoirs that have an inherent 
wealth of uncertainty. Even though it is described as being crude, it 
is operable as a simulation and does reflect many of the characteristics 
of the events associated with oil companies. As described in the previous 
chapter, the model is flexible enough to allow general or restricted 
operations of oil companies to be simulated. 

Recommendations 

At the beginning of this thesis, it was stated that the construction 
of any entity required some necessary groundwork or foundation. Now that 
the model is constructed, it is felt that it may be thought of as a 
foundation for future development of the simulation of the oil industry. 
There may never be a final model. As computor technology is increased and 
more knowledge of the simulation of events is obtained, the simulation of 
the industry will continually be improved if properly pursued. The future 
models may not only be used for training, but they may also be used to 
study the effects that changes in environment will have on the oil 
industry. Examples of these environmental changes might be the change 



106 



107 



in policy of importation of oil and natural gas, the increased use of 
liquified natural gas, the advent of new types of automobile engines, 
the arrival of supersonic jet travel, and many others. These events may 
seem farfetched at this point, but they will affect the oroduction of oil 
from the reservoir through the demand for petroleum products. The next 
steps to be taken are recommended as follows: 

1. A further study should be made of the costs involved in the 
exploration and development of oil leases and of the manner in 
which these costs are allocated to revenues. 

2. An attempt is needed to provide a better model of different 
types of oil and gas reservoirs including compatible reservoir 
characteristics. 

3. Further work is required on the model, Paydirt, in order 
that it could include simulations of transportation, refining, 
and the marketing aspects of the industry. 

Although it is felt that Paydirt is a complete working model, 
there is much to be done before it will be comprehensive enough to achieve 
its full potential. 
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Lease Number £ Acreage 1100 

Romero’s Ranch Lease 

Area Description: This land is rocky and sandy and supports very little 

foliage growth. The area receives scarce annual rainfall and consequently 
is not used as pasture by the owner. The lease is the southwestern 
section of a 3500 acre ranch. 

Geological Data: Mo geological studies or analysis have been made of 

the lease. Area magnetic surveys have indicated that a favorable 
sedimentary basin exists in this area, but no favorable structures can 
be detected from the outcroppings. 

Drilling History: There is no record of any drilling having been performed 

on this lease. A portion of a ranch about 25 miles west of the lease was 
developed about a year and a half ago. The wells were drilled to a 
depth of approximately 4000 feet and are presently averaging about thirty 
barrels a day with ten per cent water. 

Terms: Mr. Romero will accept no less than seventy-seven cents per acre as 
a bonus for the leasing rights. The Lessee must begin drilling within one 
year or be liable for a delay rental payment of one dollar per acre per year 
The lease will be automatically terminated at the end of five years or when 
it is mutually agreed that production of oil and/or gas is not, or is no 
longer economical. 



Lease Number 3 Acreage 1995 

Barclay Farms Lease 

Area Description: The land in the area of the lease is rich rolling farm 
land used to grow soy beans and corn. The surface elevation is about 
1000 feet above sea level, and the area is dotted with lakes and ponds. 

Geological Data: There is no geological data available to analyze. 

Seismic readings were taken on a farm about ten miles northeast of this 
lease and indicated that an unconformity existed at a depth of aoproximately 
3500 feet. Also there was a possible porous layer at a depth of about 
4600 feet. 

Drilling History: There has been no drilling on this lease. A well was 

drilled on the lease mentioned above to a depth of about 5000 feet, and 
was considered a duster. 

Terms: The owner will accept the highest bid offered, but it must be at 

least one dollar per acre. The Lessee will also be liable for unnecessary 
damage to crops or livestock. The Lessee must begin drilling within one 
year or he must pay the lessor one dollar per acre per year until drilling 
does commence. The lease will be terminated at the end of five years 
automatically if drilling has not begun or when it is mutually agreed that 
production of oil and/or gas is not, or is no longer economical. 
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Lease Number 



h 



Acreage 



1650 



Past Lease Production Time: 3 months 

Producing Formation: Queen (sand) 

Average Producing Depth: 30l±0 ft. 



Oil Wells : 

Currently being produced: 

Flowing: 9. 

Pumping: 0. 

Gas Lift: 0. 

Wells that have produced oil: 
Shut in: 0. 

Plugged and abandoned: 0. 

Converted to gas wells: 0. 



Gas ’.Veils : 

Producing: 0. 

Shut in : 0. 

Dry and abandoned: 0. 

Total wells drilled: 9. 

Production to date : 

Oil Production: 7500. 

Water Production: 750. 

Gas Production : 

Gas produced from oil: 2335* O^SCF) 

Dry Gas : 

Total gas produced: 2835* 



Reservoir Data: 

Initial reservoir pressure: 2361. 

Present estimated -reservoir pressure: 2300. 

Saturation pressure: 2300. 

Oil A.P.I. gravity: 38° 

Sulphur percentage: 1.C7 

Royalty interest: 

Owner: . 12? 5^ 

Other: 0 



Undepreciated tangible assets on lease: not available at this time. 
Estimated Reserves: 800,000. 



iainimum 3id: 



$1,500,000 



Lease Number 



Acreage 1112 



i^st Lease Production Times 9 Months 



Producing Formation: Montoya 

Average Producing Depths 7000. ft. 



Oil Wells : 






Currently being produced: 




• 


Flowing: 


11. 




Pumping : 


0. 




Gas Lift: 


0. 




Wells that have produced oil: 






Shut in : 






Plugged and abandoned: 


0. ' 




Converted to gas wells : 


c. 




Gas Wells: 






Producing: 


•0. • 




Shut in: 


0. 




Dry and abandoned: 


2. 




Total wells drilled: 


13. 




ft'oduction to date: 






Oil Production : 




103,000. 


Water Production: 




0. 


Gas Production: 






Gas produced from oil: 




73,170. (KSCF) 


Dry Gas: 




0. 


Total gas produced: 




73,170. 


Reservoir Data: 


■ • 




Initial reservoir pressure: 




3650. 


Present estimated -reservoir pressure 


: 3555. 


Saturation pressure: 




3600. 


Oil A.p.I. gravity: 




1:0.3- - 


Sulphur percentage: 




•3U 


Royalty Interest: 






Owner: 




12.5* 


Other: 


. 


0.0 


Undepreciated tangible assets on 


lease : 


Not available 



Estimated Reserves : 

Minimum Bid: 



500,000. 

$515,000. 



6 



Acreage 2152 



Lease Number 



Bell's Farm Lease 

Area Description: This lease is a tract of fairly level farm land that 

averages about 500 feet above sea level. It is located in a large valley 
surrounded by low mountain ridges. There is a moderate size stream that 
winds down the middle of the valley and cuts across the south vie st section 
of the lease. The roads to and in the area are excellent. 

Geological Data: No surveys have been done on this lease to date. Seismic 

readings T .irere taken on an adjacent lease in January of 1966 which indicated 
that a dome structure exists under that lease. This has proven to be correct 
by several exploratory wells that have been drilled on that lease. From the 
information received it is believed that the structure extends under this 
lease also. The producing formation appears to be the Seven Rivers (sand). 

Drilling History: There is no history of drilling on this lease that can 

be found. The wells on the adjacent lease are producing from about ?500 
feet and are flowing enough to easily make tneir allowable. 

Terms: Kr. Bell will consider no less than five dollars an acre as a bonus 

for leasing. Drilling is to commence within one year or the lessor will pay 
the lessee the amount of one dollar per acre per year as a delay rental 
payment. The lease will be terminated at the end of five years or when it 
is mutually agreed that production of oil and/or gas is not, or is no 
longer economical. 



Lease Number 7 Acreage 1222 

Hillsdale- Valley Farm Lease 

Area Description: This area, including the lease, is slightly rolling farm 

land used primarily to grow corn and wheat. There is plenty of water in the 
area and the roads to and in the area are excellent. 

Geological Data: None. 

Drilling History: There is no record of any drilling having been performed 

on this lease. 

Terms: Because it is excellent farming land, the owner will consider no 

less than one dollar an acre for a bonus to lease. Drilling will commence 
within one year or the lessee will pay the lessor a delay rental payment 
of one dollar per year per acre. The lease will terminate at the end of 
five years or when it is mutually agreed that production of oil and / or gas 
is not, or is no longer economical. 
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Lease Number 8 Acreage 5000 

Reno Id's Ranch Lease 

Area Description: The area is rolling open range in western Kansas, used 

for cattle grazing. Except for a few ponds on the ranch, there is no 
available source of water. Roads into the area are gravel roads in good 
condition most of the year. 

Geological Data: There are very limited rock outcroppings visible on the 

lease. Aerial photography shows that there is a little evidence of the 
presence of faults in the northeastern section and the possible beginning 
of an anticline structure in the southern portion. A recent inspection 
revealed two possible oil seeps in the area of the faults. 

Drilling History: No drilling has been dofte on this lease that can be 

determined. A wildcat well \<ras drilled on a lease about thirty miles x-;est 
of this lease to a depth of about L000 feet. It was considered a duster. 

Terms: The oxmer will consider bids of tx-;enty cents an acre or better as 

a bonus for the lease. Drilling is to commence within one year or a delay 
rental must be paid by the lessee to the lessor of one dollar per acre per 
year. The lease will be terminated at the end of five years or when it is 

mutually agreed that production of oil and/or gas is not, or is no longer 

economical. 



Lease Number 9 Acreage 1111 

Blue Marsh Leash 

Area Description: The area is generally flat and marshy land x-jith an 

elevation right at sea level. No farming is done in this area because 
of the marshy nature of the land. There are a f e\-i roads but transportation 
is mainly by boat. 

Geological Data: There is a scarcity of geological information for this 

area, however, the region is becoming famous for its many salt domes. 

An aerial magnetic survey of this area x-jas made in 1962 which indicated that 
a dome may exist in the vicinity of the lease. Seismic readings have not 
been taken to confirm or deny this indication. 

Drilling History: There is no evidence of past drilling on this or 

adjacent leases. 

Terms: The ox-mers will consider no less than one dollar per acre bonus 

for this lease and will lease to the highest bidder. Drilling is to com- 
mence within one year or a delay rental of one dollar per acre per year 
must be paid to the lessor by the lessee. The lease XvT.ll be terminated 
at the end of five years or when it is mutually agreed that production of 
oil and/or gas is not, or is no longer economical. 



Lease Number 10 



Acreage 760 



Past Lease Production Time; 7 Years 



Producing Formation: 

Average Producing Depth: 

Oil Wells : 

Currently being produced: 



Delaware 
I960 ft. 



Flowing : 


0. 




Pumping : 


. 2. 




Gas Lift: 


0. . 




Wells that have produced oil: 
Shut in: 


0. 




Plugged and abandoned: 


‘ 2. 




Converted to gas wells : 


0. 




Gas Wells: 






Producing: 


■ 0. 




Shut in: 


0. 




Dry and abandoned: 


1. ' 




Total wells drilled: 


5. 




Production to date: 






Oil Production: 




7,5oo.. 


Water Production: 


• 


0. 


Gas Production: 






Gas produced from oil: 




830. 


Dry Gas : 




0. 


Total gas produced: 




830. 



Reservoir Data: 

Initial, reservoir pressure: 

Present estimated -reservoir pressure: 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 

Undepreciated tangible assets on lease: 
Estimated Reserves: 

Min imam Bid: 



1500 . 

2300. 

29° 

0 . 



12.55S 

0.0 

none 

10 , 000 . 

£ 5 , 000 . 



(KSCF) 
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Lease Number 11 



Acreage 2000 



past Lease Production Time: 1 month 

Producing Formation: Yates 

Average Producing Depth: 1300. ft. 

Oil Wells : 

Currently being produced: 

Flowing: 1. 

Pumping: 0. 

Ga3 Lift: 0. 

Wells that have produced oil: 

Shut in: 0. 

Plugged and abandoned: 0. 

Converted to gas wells: 0. 



Gas ’.Veils : 

Producing: 

Shut in: 

Dry and abandoned: 
Total wells drilled: 



0. 

0. 

0. 

1. 



12 BPD 



Production to date : 

Oil Production: 

Water Production: 

Gas Production: * 

Gas produced from oil: 122. 
Dry Gas: 

Total gas produced: 



Uoo. 

0. 



0. 

122 . 



(MSCF) 



Reservoir Data: 

Initial reservoir pressure: 

Present estimated -reservoir pressure; 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 



2lii9. 

2110. 

2000. 

hi* 

1.3 



l?.5% 

o 



Undepreciated tangible assets on lease: not available 
Estimated Reserves: 50,000. 

Minimum Bid: $100,000. 






Lease Number 12 



Acreage 3 100 



/ 



f&st Lease Production Time: 

Producing Formation: 

Average Producing Depth: 



9 Months 

Blinebry (Yes o- Lime) 

55?5 ft. 



Oil Wells : 

Currently being produced: 

Flowing: 21. 

Pumping: 0. 

Gas Lift: 0. 

Wells that have produced oil: 
Shut in: 0. 

Plugged and abandoned: 0. 

Converted to gas wells: 0. 



Gas Wells : 

Producing: 0. 

Shut in: 0 . 

Dry and abandoned: 0 . 

Total wells drilled: 21. 



Production to date: 

Oil Production: 

Water Production: 

Gas Production : 

Gas produced from oil: 
Dry Gas : 

Total gas produced: 



160,500. 

15 , 000 . 

53,770. (MSCF) 
53,770. 



Reservoir Data: 

Initial reservoir pressure: 2005. ?SI 

Present estimated-reservoir pressure: 1910. 

Saturation pressure: 3000 . 

Oil A.P.I. gravity: • ^1° 

Sulphur percentage: «05 

Royalty Interest: 

Owner: 12.5/* 

Other.: 0*0 



Undepreciated tangible assets on lease: Not available at this time 

Estimated Reserves: 1,1:50,000. 



$ 2 , 000 , 000 . 



Minimum Bid: 
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Lease Number 13 Acreage 30C0 

"Wastelands" Lease 

Area Description: The area in which this lease is situated is very hilly 

and rocky. There is very little rainfall and as a result there is very 
little water and almost no vegetation. The land is not used for anything. 

Geological Data: Other than aerial mappings of the area, no other recent 

studies have been made of the area. There are stories that this lease was 
drilled at one time during the 1920' s, but the records or the location of 
the wells cannot be found. The aerial maps appear to indicate that several 
dome structures may exist under the lease. Studies of this area suggest 
that the Yates-Seven Rivers formation may occur this far north. 

Drilling History: From the information that can be gathered in the area, 

the original wells were drilled about 1926 to a depth of about 2000 feet 
by the cable tool method. The wells that were drilled were fairly produc- 
tive, but due to the high cost of transporting the oil, inefficient produc- 
tion methods and the Great Depression of the thirties, the company 
apparently went bankrupt and abandoned the field. 

Terms: Because it is fairly certain that oil does exist on this lease, the 

new owner of this lease will not accept less than two dollars per acre for 
the leasing rights. Drilling must be started within one year or a delay 
rental payment of one dollar per acre per year will be paid to the lessor 
by the lessee. The lease will terminate at the end of five years or when 
it is mutually agreed that production of oil and/or gas is not, or is no 
longer economical. 



Lease Number lJi Acreage 993 

West Windy County Lease 

Area Description: This lease is an old run down farm owned by an old man 

who now resides in Kansas City. Most of the farm is situated on the side 
of a long sloping hill. About fifty per cent of the area is wooded. A 
lake on the property provides plenty of water and the roads to the lease 
are in good condition. 

Geological Data: None. 

Drilling History: None. 

Terms: The owner will consider no bids less than one dollar per acre. 

Lessee will drill within one year or pay the lessor one dollar per acre 
per. year until drilling does commence or the lease is terminated. The 
lease will terminate at the end of five years or when it is nutually agreed 
that production of oil and/or gas is not, or is no longer economical. 
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Lease Number 1$ Acreage ^-052 

Richard Burtron Estate 

Area Description: The terrain in this area is mountainous and very rocky 

with lush vegetation. The estate is isolated by mountain ranges on all 
sides, but roads through several passes leading to the lease are fair and 
passable the year round. 

Geological Data: Magnetic surveys, aerial photographs and ground naps 

have been made of this area recently. There are numerous faults apparent 
from the visible rock outcroppings with several showing the signs of the 
black oil sands. 

Drilling History: Fifteen years ago a well was drilled on the southern 

portion of this lease to a depth of 3100 feet. A show of oil was found, 
but it was not considered economical to produce and the well was abandoned. 
No other drilling has been done in the area. 

Terms: The o\mer will lease the whole estate to the highest bidder for 

at least ten thousand dollars or more. Drilling wall commence before the 
end of one year or the lessee will pay a delay rental payment of one dollar 
per acre per year to the lessor. The lease will be terminated at the end 
of five years if no drilling has been done or if it is mutually agreed 
that production of oil and/or gas is not, or is no longer economical. 



Lease Number 16 Acreage 2500 

Lake Tract Lease 

Area Description: The area of this lease is relatively flat and is about 

700 feet above sea level. It is bordered on the west by rolling hills that 
level off into a plain that is approximately 1500 feet in elevation. The 
area is part of a state wildlife reserve. 

Geological Data: Geological survey's are now in progress and evidence so 

far indicates that there is a good possibility that several potential oil 
traps may exist on the lease. This evidence was derived from an analysis 
that has just been completed on some partially burried. outcroppings in the 
western section of the lease. 

Drilling History: No drilling has been done on this lease thus far. The 

land is owned by the state and is completely undeveloped. 

Terms: The state will allow only the minimum amount of disturbance of 

the natural habitat of the plant and wildlife. The minimum bid the state 
will consider will be five dollars an acre. Drilling will commence within 
one year or the lessee '.-/ill pay the state a delay' rental of one dollar per 
acre per year. The lease will be terminated at the end of five years or 
when it is mutually agreed that production of oil and/or gas is not, or is 
no longer economical. 



Lease Number 17 



Acreage blOO 



Past Lease Production Time: 9 months 

Producing Formation: Grayburg-Queen 

Average Producing Depth: 3650 ft. 

Oil Wells: 

Currently being produced: 

Flowing: 13 • 

Pumping: 0. 

Gas Lift: 0. 

Wells that have produced oil: 

Shut in: 0. 

Plugged and abandoned: 0. 

Converted to gas wells: 0. 

Gas Wells : 

Producing: 

Shut in: 

Dry and abandoned: 

Total wells drilled: 

Production to date : 

Oil Production: 

Water Production; 

Gas Production: 

Gas produced from oil: 5,b99. (&SCF) 

Dry Gas : 0. 

Total gas produced: 5,b99» 

Reservoir Data: 

Initial reservoir pressure: 

Present estimated-reservoir pressure: 

Saturation pressure: 

Oil A.p.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 

Undepreciated tangible assets on lease: $1,200,000. 
Estimated Reserves: 1,500,000. 

Minimum Bid: $2,000,000. 



1807 

1780 . 

2000 

b2 

.5 



12o5% 



u. 

0 . 

0 . 

13. 



120,000. 

5,ooo. 



(estimated) 
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Lease Number 19 Acreage 2025 

Dot-ms Estate Lease 

Area Description: Rolling, slightly wooded countryside characterizes the 

entire 2025 acres offered for lease by the beneficieries of the Downs 
Estate. The lease’s elevation is about. 1500 feet above sea level and there 
are no commercial or residential developments within ten miles. 

Geological Data: There is no geological data available. 

Drilling History: No wells have been drilled on this land to date. The 

Petro Wildcat Company has begun drilling on a farm two miles east of the 
estate on the basis of some favorable seismic readings. These readings 
indicate that the possibility of a - oinchout exists on that lease, and from 
the lay of the land, the oinchout may extend under part or all of the Downs 
Estate. 

Terms: The owners of the Estate have turned down an offer of two dollars 
an acre for a leasing bonus and would consider an offer of five dollars or 
more an acre. Drilling is to commence within one year or the lessee will 
be liable to the lessor for a delay rental payment of one dollar oer year 
per acre. The lease will terminate at the end of five years is no drilling 
has been done or in the event that it is mutually agreed that production 
of oil and/or gas is not, or is no longer economical. 



Lease Number 19 Acreage 1561 

Henry A. Jackson Lease 

Area Description: This lease is located in the southeastern portion of 

Kansas where the terrain is rather hilly. There are some wooded spots on 
the lease and the rest is grass land used for grazing horses. 

Geological Data: There is no detailed geological data presently available 

for this lease. There is little surface evidence that there are subsurface 
structures under the lease that may contain gas or oil. However, from 
general geological knowledge of the area, the Bartlesville Sand formation 
should lie under this lease at an approximate depth of 2C00 feet. 

Drilling History: There is no record of any drilling that has been done 

on this lease or on adjacent leases. 

Terms: Mr. Jackson will accept no less than two dollars an acre as a bonus 

for the leasing rights. Drilling must begin within one year or a delay 
rental of one dollar per acre per year must be paid to the lessor. The 
lease will be terminated at the end of five years if no drilling has been 
accomplished or at the time when it is mutually agreed that production 
of oil and/or gas is not, or is no longer economical. 
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Lease Number 20 



Acreage 



Past Lease Production Time: 9 months 

Producing Formation: McKee (Simpson) 



Average Producing Depth: 9000. ft. 

Oil Wells : 

Currently being produced: 

Flowing: 17. 

Pumping: 0. 

Gas Lift: 0. 

Wells that have produced oil: 

Shut in: 0. 

Plugged and abandoned: 0. 

Converted to gas wells: 0. 

Gas V/ells : 

Producing: 0. 

Shut in: 0. 

Dry and abandoned: 0. 

Total wells drilled: 17. 



Production to date : 



Oil Production: 


210,000. 


Water Production: 


0 . 


Gas Production : 


66,617. 


Gas produced from oil: 


♦ 


Dry Gas: 




Total gas produced: 


66,617. 


Reservoir Data: 




Initial reservoir pressure: 


3315. 


Present estimated-reservoir pressure: 


2100. 


Saturation pressure : 


3360. 


Oil A.P.I. gravity: 


lio e 


Sulphur percentage: 


0 . 


Royalty Interest: 




Owner: 


12.52 


Other: 


0.0 


Undepreciated tangible assets on lease: 


$1,080,000 


Estimated Reserves: 


2,000,000 



3555 



( MSCF ) 



(estimated) 



Minimum Bid: 



$1,300,000 



Lease Number 21 



Acreage 360li 



Past Lease Production Time: 1 month 

Producing Formation: Silurian 

Average Producing Depth: 6000. ft. 

Oil Wells : 

Currently being produced: 

Flowing: 1* 

Pumping: 0. 

Gas Lift: • 0. 

Wells that have produced oil: 

Shut in: 0. 

Plugged and abandoned: 0. 

Converted to gas wells: 0. 

Gas ’Hells : 

Producing: 0. 

Shut in: 0. 

Dry and abandoned: 0. 

Total wells drilled: 1. 

Production to date: 

Oil Production: . 

Water Production: 

Gas Production : 

Gas produced from oil: 

Dry Gas: 

Total gas produced: 

Reservoir Data: 

Initial, reservoir pressure: 

Present estimated -reservoir pressure: 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 



500 . 

100 . 

It. (MSCF) 
It. 

It. 



2930. 

2930. 

3000. 

1 * 3.6 

.69 



12.52 

0.0 



Undepreciated tangible assets on lease: no ‘t available. 

Estimated Reserves: 1,500,000. 

$ 1 , 000 , 000 . 



Minimum Bid: 
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Lease Number Acreage 750 

John 3lackman Lease 

Area Description: This lease is part of a large farm that borders on the 

Kansas River, and is a strip of flat land that lies between the river and 
some sloping hill country. The land is used to grow wheat and sorghum grains. 

Geological Data: The owner has had seismic studies made of the lease. The 

results indicate that a prospective porous formation exists at about 3300 
feet to about 4200 feet which is thought to be the Kississippian formation. 
Another formation beginning at approximately 7500 feet also looks very 
favorable. 

Drilling History: There is no drilling history for this lease. About 

three miles up the river, development has just been completed this year on 
the Jack Vhitelinger Lease. Ten wells were completed to an average depth 
of about 4000 feet, and the wells are now flowing roughly 100 barrels per 
day. There has been no other drilling activity in the area. 

Terms: The owner will consider bids of not less than five dollars an 
acre plus two thousand dollars which is the cost of the seismic study. 

Lessee must begin to drill within one year or pay lessor a delay rental 
payment of one dollar per acre per year until drilling commences or the 
lease is terminated. The lease is terminated at the end of five years or 
in the event that it is mutually agreed that production of oil and/or 
gas is not, or is no longer economical. 



Lease Number 23 Acreage 1673 

Black Swamp Lease 

Area Description: This lease is entirely swamp land located near the 
Mississippi river in northern Louisiana. There are very few roads to 
the area and it is inhabited only by wildlife. 

Geological Data: There is no geological data available for this lease. 

Most of the time the swamp is covered with a black oily film from which 
the swamp gets its name. The oily film could result from oil sweeps or 
it may be from other sources. 

Drilling History: None. 

Terms: The owner will lease this land for not less than fifty cents an 

acre. Drilling must start within one year or a delay rental payment of 
one dollar per acre per year will be paid to the lessor. The lease will 
terminate at the end of five years if no drilling has begun or when it is 
mutually agreed that production of oil and/or gas is not, or is no longer 
economical. 
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Lease Number Acreage 1000 

Suburban Number 1 Lease 

Area Description: The area of the lease is a hilly wooded area on which 

exists a newly developed residential section. The lease is owned by a 
number of landowners most of whom live on the land. They have banned 
together to form a royalty company to handle lease arrangements. The 
area available for a leasing company's operations is limited due to the 
close house spacing. 

Geological Data: The royalty company has hired a geologist to make a 

study of the lease to determine the possibility of finding oil. Because 
of the nature of the area, only a few seismic readings could be taken, but 
the study concluded that the possibility of the existence of oil in a 
porous formation at a depth of 3100 feet was excellent. This formation 
is thought to be part of the Yates formation. 

Drilling History: This lease is adjacent to a lease that is now being 
developed, but drilling data from the lease is being kept confidential. 

From the little information that can be obtained, producing depths appear 
to be about 4000 feet, and the wells are flowing well enough to make 
their allowables. 

Terms: The royalty company will not consider bids of less than twenty 

dollars an acre bonus and will lease to the highest bidder. Severe 
restrictions will be placed on the driller because of this being a resident- 
ial area. Drilling is to commence within one year or a delay rental will 
be paid to the lessor by the lessee of one dollar per acre per year. The 
lease will be terminated at the end of five years or when it is mutually 
agreed that production of oil and/or gas is not, or is no longer economical. 



Lease Number 2$ Acreage 910 

Bill Smith Lease 

Area Description: This lease is located in the Ohio River valley in Ray 

County, Kentucky. The land is quite hilly although the hills are not 
very high. The lease is situated about four miles south of the river. 

Geological Data: None. 

Drilling History: None. 

Terms: Mr. Smith has agreed to lease to the highest bidder if the bid is 

one. thousand dollars or more. The lessee must start drilling within one 
year or he must pay a delay rental of one dollar per acre per year. The 
lease will terminate at the end of five years if no drilling has been done 
or when it is mutually agreed that production of oil and/or gas is not, or 
is no longer economical. 
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Lease Number 2 6 Acreage 2100 

Cartley's Land Tract Lease 

Area Description: This tract of land is in the heart of the Kentucky Blue 

Grass country and is presently used to pasture race horses. The land was 
leased 19 months ago and the lessee had geological studies made but the 
lease was never proven. The lessee is now attempting to sell the lease 
for he is retiring from the oil business. 

Geological Data: From the studies made recently on this lease, it was 

determined that at least one definite unconformity existed under the 
western section of the lease which ended at a large fault. The depth 
of the cap rock appeared to be about 1500 feet below the surface. 

Several layers of porous rock were detected under the cap rock that have 
definite possibilities of being productive. 

Drilling History: No drilling has been done on this lease or adjacent 

leases. 

Terms: The present lessee is asking for a minimum bid of two dollars and 
fifty cents an acre plus the cost of the geological studies which was 
two thousand dollars. Drilling must commence within one year or lessee 
will pay the land owner one dollar per acre per year as a delay rental 
charge. The oresent lessee will reimburse the land owner for the year's 
delay rental that the new lessee has to drill. The lease will be terminated 
at the end of five years or in the event that it is mutually agreed that 
production of oil and/or gas is not, or is no longer economical. 



Lease Number 27 Acreage 7000 

Red Desert Lease 

Area Description: This piece of land is sandy and dry and flat as far as 

the eye can see. It is uninhabited except for a few clusters of houses on 
the northwestern edge. Because of the climate and the land conditions, the 
area has not been developed and is considered a wasteland. 

Geological Data: None. 

Drilling History: This land has not been drilled on as this is the first 

time it has been available for leasing. A dry hole was drilled about two 
years ago some ten miles south of this lease which is the only record of 
drilling in this area. 

Terms: The owners will lease this land to the highest bidder for a minimum 

of three thousand dollars bonus. Drilling must start within a year or the 
lessee will pay the lessor a delay rental payment of one dollar per acre 
per year until drilling does start. The lease will terminate at the end of 
five years or "when it is mutually agreed that the production of oil and/or 
gas is not, or is no longer economical. 



Lease Number 28 



Acreage 2111 






Past Lease Production Time: 


1 Month 


Producing Formation: 


Bowers Sand 


Average Producing Depth: 


2100. ft. 


Oil Wells : 


Currently being produced: 




Flowing: 


1 . 


Pumping : 


0 . 


Ga3 Lift: 


0 . 


Wells that have produced oil: 


Shut in: 


0 . 


Plugged and abandoned: 


0. 


Converted to gas wells 


i 0. 


Gas Wells : 


Producing: 


0 . 


Shut in : . 


0 . 


Dry and abandoned: 


0 . 


Total wells drilled: 


1 . 


Production to date : 


Oil Production: 


1000. 


Water Production: 


0. 


Gas Production: 


‘ * 


Gas produced from oil: 


200. 


Dry Gas : 


0 . 


Total gas produced: 


200. 


Reservoir Data: 


Initial reservoir pressure 


• 

• 


Present estimated reservoir pressure: 


Saturation pressure: 
Oil A.p.I. gravity: 


Sulphur percentage: 




Royalty Interest: 



Owner: 

Other: 



1918 . 
1913. 
2 ^ 00 . 
32 f 

1 . 



12 .# 

0.0 



Undepreciated tangible assets on lease: $5U, 000. (estimated) 



Estimated Reserves : 



600 , 000 . 



Minimum Bid: 



$900,000 



Lease Number 29 



Acreage 2777 



ftist Lease Production Time: 3 Months 

Producing Formation: Grayburg 

Average Producing Depth: IilOO ft. 



Oil Wells : 

Currently being produced: 

Flowing: 2. 

Pumping: 

Gas Lift: - • 

Wells that have produced oil: 

Shut in: 0. 

Plugged and abandoned: 0. 

Converted to gas wells: 

Gas Wells : 

Producing: ■ 0. ' 

Shut in: 0. 

Dry and abandoned: 0.. 

Total wells drilled: 2. 

Production to date : • 

Oil Production: 6000. 

Water Production: 110. 

Gas Production: 

Gas produced from oil: 730. (MSCF) 

Dry Gas: 0* 

Total gas produced: 750. 



Reservoir Data: 

Initial, reservoir pressure: 

Present estimated -reservoir pressure: 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 



Royalty Interest: 
Owner: 

Other: 



2018. 

1920. 

2100 . 

37” 

1.0 



12.5)2 

0.0 



Undepreciated tangible assets on lease: £100,000. 



Estimated Reserves: 



800,000. 



iiinimum Bid: 



£ 750 , 000 '. 



Lease Number 30 



Acreage 1000 



f&st Lease Production Time: 2 months 



Producing Formation: Queen 

Average Producing Depth: 38OO ft. 

Oil Wells: 

Currently being produced: 

Flowing: 9. 

Pumping : 0. . 

Gas Lift: 0. 

Wells that have produced oils 
Shut in: 0. 



Plugged and abandoned: ' 0. 

Converted to gas wells: 0. 



Gas Wells : 

Producing: 0. 

Shut in: • G. , 

Dry and abandoned: 0. 

Total wells drilled: 9* 



Production to date : 

Oil Production: 7500. 

Water Production: 0. 

Gas Production: 

Gas produced from oil: 5163. (iiSCF) 
Dry Gas : 

Total gas produced: 5168. 



Reservoir Data: 

Initial reservoir pressure: 3580. 

Present estimated -reservoir pressure: 3500. 

Saturation pressure: 3500. 

Oil A.P.I. gravity: i*0* 

Sulphur percentage: .U 

Royalty Interest: 

Owner: 12. 5£ 

Other: 0.0 



Undepreciated tangible assets on lease: £360, 000. 
Estimated Reserves: 300,000. 
liinimum Bid: $600,000. 



Lease Number 31 



Acreage 1989 



Past Lease Production Time: 

Producing Formation: 

Average Producing Depth: 

Oil Wells : 

Currently being produced: 
Flowing: 

Pumping : 

Ga3 Lift: 

Wells that have produced oil: 
Shut in: 

Plugged and abandoned: 
Converted to gas wells: 

Gas Wells: 

Producing: 

Shut in : 

Dry and abandoned: 

Total wells drilled: 

Production to date : 

Oil Production: 

Water Production: 

Gas Production: 

Gas produced from oil: 

Dry Gas: 

Total gas produced: 

Reservoir Data: 

Initial reservoir pressure: 
Present estimated reservoir 
Saturation pressure: 

Oil A.p.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 



2 Months 

Seven Pavers 
3350 ft. 



1 . 

0 . 

0 . 

0. 

0. 

0. 



0. 

0. 

0. 

1. 



1500. 

0. 

300. (LISCF ) 

0. 

300 . 



pressure : 



2100. 

2060. 

2300. 

35 ® 

0. 



12.5? 

0.0 



Undepreciated tangible assets on lease: 
Estimated Reserves : 



Minimum Bid: 



1 , 500 , 000 , 

$900,000 
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Lease Number 3? Acreage 3100 

Santon's Farm Lease 

Area Descriotion: This farmland was leased approximately seven years 

ago to the Accidental Drilling Company. Accidental had a five year 
lease and decided to abandon the property about the time it would have 
expired. Their equipment was in poor repair and they did not feel it 
was economical to renew or repair it. This land has been used as grazing 
land for the last two years. 

Geological Bata: Drilling was originally started based on seismic readings 

that detected several faults. The leasing company drilled 2552 feet to 
these faults. The wells initially flowed about 200 barrels per day with 
about fifteen per cent water. Since the lease was abandoned, new seismic 
readings taken on deeper formations indicate a possible dome structure at 
a depth of about 6100 feet. 

Drilling History: There were nine wells on the lease. All of them were 

abandoned and filled in. The wells were producing about five barrels a 
day by pumping with no increase in the oercentage of water. None of the 
wells exceeded 35DO feet deep. There was no secondary recovery attempted 
on this reservoir. The wells were not acid treated or fractured. 

Terms: Mr. Santon will consider offers of five thousand, dollars or more as 

a bonus to lease. Drilling will commence within one year or a delay rental 
payment of one dollar per acre per year will be paid to the lessor. The 
lease will terminate at the end of five years or in the event that it is 
mutually agreed that the production of oil and 'or gas is not, or no longer 
economical. 



Lease Number 33 Acreage 1010 

Lake Watusi Lease 

Area Description: The lease is located on the shores of beautiful Lake 

Watusi. The terrain is slightly hilly and about twenty-five per cent 
wooded. This lease is part of a large dairy farm and most of the land 
in the lease is used as pasture. 

Geological Data: There are no prospective formations evident from the 

appearence on the surface and no other geological data is available. 

Drilling History: None for this area. 

Terms: This lease is available for a minimum bonus of two thousand dollars 

and all bids will be considered. Drilling is to be started within one year 
or the leasing company will pay the owner a delay rental of one dollar per 
acre per year until drilling is started. The lease will terminate at the 
end of five years or when it is mutually agreed that it it not, or is no 
longer economical to produce oil and/or gas. 



Lease Number ] h 



Acreage 5231 



P&st Lease Production Time: 3 months 

Producing Formation: Queen 

Average Producing Depth: 3000 ft. 

Oil Wells : 

Currently being produced: 



Flowing: 

Pumping : 

Gas Lif t : 

Wells that have produced oil 
Shut in: 

Plugged and abandoned: 
Converted to gas wells: 

Gas Wells : 

Producing: 

Shut in : 

Dry .and abandoned: 

Total wells drilled: 

Production to date: 

Oil Production: 

Water Production: 

Gas Production: 

Gas produced from oil: 
Dry Gas : 

Total gas produced: 

Reservoir Data: 

Initiai reservoir pressure: 
Present estimated-reservoir 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 

Undepreciated tangible assets 
Estimated Reserves : 



7. 

0 . 

0 . 



0. 

0. 



0. 

0. 

0. 

7. 



10,500. 

no. 

8I69. (ilSCF) 

BU69. 



3hl0. PS I 

pressure: 33^1. 

3520. 

38° 

1.07 



12.5* 

0.0 

on lease: $100,000. 

100,000. 



Jlinimum Bid: 



$1,000,000 



•Lease Number 35 



Acreage 1950 



i^st Lease Production Time: 10. Months 

Producing Formation: Ellenburger (lime) 

Average Producing Depth: 7900. ft. 

Oil Wells : 

Currently being produced: 



Flowing: 

Pumping: 

Gas Lift: 

Wells that have produced oil 
Shut in: 

Plugged and abandoned: 
Converted to gas wells: 

Gas Wells: 

Producing: 

Shut in : 

Dry and abandoned: 

Total wells drilled: 

Production to date : 

Oil Production: 

Water .Production: 

Gas Production : 

Gas produced from oil: 
Dry Gas: 

Total gas produced: 

Reservoir Data: 

Initial reservoir pressure: 
Present estimated -reservoir 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 

Undepreciated tangible assets 
Estimated Reserves: 



17. 

0 . 

0 . 



0 . 

0 . 



0 . 

0. 

0. 

17. 



136,500. 

0. 

120 , 713 . (KSCF) 

120,713. 



'• 3500. 

pressure: 3355. 

3ll0. 

• 12 ° 

0. 



12.52 

0.0 



in lease: 



Minimum Bid: 



$ 360 , 000 . 

590,000. 

$95L,000. 



Lease Number 3^ 



Acreage c^pi 



ftist Lease Production Time; 3 Months 



Producing Formation: Seven Rivers 

Average Producing Depth: 3200 ft. 



Oil Wells : 

Currently being produced: 

Flowing: 9 . 

Pumping: 0 . 

Gas Lift: 0. 

Wells that have produced oil: 
Shut in: p. 

Plugged and abandoned: 0 . 

Converted to gas wells: p. 



Gas Wells : 

Producing: 0 , 

Shut in: • 0 . 

Dry and abandoned: 0 . 

Total wells drilled: 9 . 



Production to date: 

Oil Production: 

Water Production: 

Gas Production: 

Gas produced from oil: 
Dry Gas: 

Total gas produced: 



Reservoir Data: 

Initial, reservoir pressure: 

Present es tiraa ted -reservoir pressure: 
Saturation pressure: 

Oil A.p.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 

Undepreciated tangible assets on lease: 



Estimated Reserves: 

Minimum Bid: 



7500. 

75 . 

2381. (iSCF) 
2331. 



2011. 

2000. 

2000 . 

h2° 

0 . * 



12 . 5 % 

0.0 

not available 

1 , 000 , 000 . 

$ 2 , 000 , 000 . 
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Lease Number 37 



Acreage 3237 



Past Lease Production Time: 3 Months 



Producing Formation: Seven Rivers 

Average Producing Depth: 30 50 ft. 



Oil Wells : 

Currently being produced: 
Flovdng: 

Pumping: 0. 

Gas Lift: 0„ 

Wells that have produced oil: 
Shut in: 0. 

Plugged and abandoned: 0., 

Converted to gas wells: 0. 



Gas 



Wells : 
Producing: 
Shut in: 



■;r 



0 . 

0 . 



Dry and abandoned: *-• 

Total Trails drilled: 7. 



Production to date : 

Oil Production: 7500. 

Water Production: 600. 

Gas Production: 

Gas produced from oil: 5577* 

Dry Gas: 

Total gas produced: 5577* 



Reservoir Data: 

InitiaJ. reservoir pressure: 

Present estimated reservoir pressure: 
Saturation pressure: 

Oil A.p.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 



1327. 

1210 . 

11 - 00 . 

35° 

.09 



12 . 5 % 

0.0 



Undepreciated tangible assets on lease: not available 



E&timated Reserves: 



200,000. 



Minimum Bid: 



£ 1 : 00,000 









i 






Lease Number 33 



Acreage 790 



Bast Lease Production Time: 9 Months 



Producing Formation: 
Average Producing Depth: 



Bartlesville Sands 
2500 ft. 



Oil Wells : 

Currently being produced: 

Flowing: 6. 

Pumping: 0. 

Gas Lift: 0. 

Wells that have produced oil: 

Shut in: 0. 

Plugged and abandoned: 0. 

Converted to gas wells : 0. 

Gas Wells : 

Producing: 0. 

Shut in: 0. 

Dry and abandoned: 1. 

Total wells drilled: 7. 

Production to date: 

Oil Production: 

Water Production: 

Gas Production : 

Gas produced from oil: 

Dry Gas : 

Total gas produced: 

Reservoir Data: 

Initial reservoir pressure: 

Present estimated reservoir pressure: 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 



55.000. 

5 , 500 . 

U6,000. (MS CF ) 

16.000. (ISCF) 



1)465. PS I 

1115. 

2000. 

33 * 

0 . - 



12.5? 

0.0 



Undepreciated tangible assets on lease: not available. 

Estimated Reserves: 210,000. 



Minimum Bid: 



$300,000 
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Lease Number 39 Acreage 3500 



Past Lease Production Time: b years 

Producing Formation: . Queen(sand) 

Average Producing Depth: ' 2753 Ft. 

Oil Wells : 

Currently being produced: 

Flawing : 

Pumping : 

Gas Lift: 

Wells that have produced oil: 

Shut in: 

Plugged and abandoned: 

Converted to gas wells: 

Gas Wells : 

Producing: 

Shut in : 

Dry and abandoned: 

Total wells drilled: 

Production to date: 

Oil Production: 

Water Production: 

Gas Production: 

Gas produced from oil: 

Dry Gas: 

Total gas produced: 



Reservoir Data: • 

Initial reservoir pressure: 3500. 

Present estimated -reservoir pressure: 500. 

Saturation pressure: 3000. 

Oil A.P.I. gravity: * ^3“ 

Sulphur percentage: *3 

Royalty Interest: 

Owner: 12.5% 

Other: 0.0 

Undepreciated tangible assets, on lease: none 

Estimated Reserves: 50,000. 

tiinimum Bid: ' $100,000. 



5 . 

o. 

0 . 

0 . 

0 . 



0 . 

0 . 

3. 

8 . 



91,000. 

10 , 000 . 

263, boo. (ivSCF) 
263, bOO. 



y 



Lease Number ^0 



Acreage 2 3lp 



Past Lease Production Times 6 Months 



Producing Formation: . Grayburg (Permain) 



Average Producing Depth: ’ 2500 ft. 

Oil Wells: 

Currently being produced: 

Flowing: 7* 

Pumping: • 0. 

Gas Lift: 0. 

Wells that have produced oil: 

Shut in: 1. 

Plugged and abandoned: 0. 

Converted to gas wells : 0. 

Gas Wells: 

Producing: 0. 

Shut in: 0. 

Dry and abandoned: 0. 

Total wells drilled: 8. 



Production to date: 

Oil Production: 

Water Production: 

Gas Production : 

Gas produced from oil: 
Dry Gas: 

Total gas produced: 



10 , 500 . 

0 . 



3,51:7. (I.SCF) 

0 . 

8,517. 



Reservoir Data: 

Initial, reservoir pressure: 1500. 

Present estimated-reservoir pressure: 1&09. 

Saturation pressure: 1590. 

Oil A.P.I. gravity: 3 $° 

Sulphur percentage: 0.9 

Royalty Interest: 

Owner : 12. 5£ 

Other: 0.0 

Undepreciated tangible assets on lease: $80,000. 



Estimated Reserves: 



350,000. 



$1,320,000. 



Minimum 3id: 



Lease Number 



Acreage 2$66 






test Lease Production Times 12 Llonths 



Producing Formation: San Andres 

Average Producing Depth: 27^0 ft. 



Oil Wells: 

Currently being produced: 

Flowing: H u 

Pumping: 0. 

Gas Lift: 0. 

Wells that have produced oil: 

Shut in: 0. 

Plugged and abandoned: 

Converted to gas wells: 0. 

Gas Wells: 

Producing: • 0 .' 

Shut in : 0. 

Dry and abandoned: q # 

Total wells drilled: 



Production to date: 

Oil Production: 

Water Production: 

Gas Production: 

Gas produced from oil: 

Dry Gas : 

Total gas produced: 

Reservoir Data: 

Initial reservoir pressure: 

Present estimated reservoir pressure: 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage : 

Royalty Interest: 

Owner: 

Other: 

Undepreciated tangible assets on lease: 
Estimated Reserves: 



130,000. 

none 



93,000. 

C. 

93,000. 



(yscF) 



1350 . 
1050. 
1300. 
23 0 

.9 



12 . 9 $ 

0.0 

$3X,000. 

900,000. 



minimum Bid: 



§ 1 , 100 , 000 . 



i 



Lease Number ^2 



Acreage 1290 



Past Lease Production Times 7 years 

Producing Formation: Tates • 

Average Producing Depth: 133>0 ft. 



Oil Wells : 

Currently being produced: 

Flowing: 0. 

Pumping: . 13 . 

Gas Lift: 0. 

Wells that have produced oil: 

Shut in: • 0. 

Plugged and abandoned: 0. 

Converted to gas wells: 0. 



Gas Wells : 

Producing: ■ 0. 

Shut in: 0 . 



Dry and abandoned: lj. 

Total wells drilled: 17 * 



Production to date : 

Oil Production: 

Water Production: 

Gas Production : 

Gas produced from oil: 
Dry Gas: 

Total gas produced: 



. 7U 3,210. 

1 , 6 ^ 7 , 000 . 

2,113,000. 

0 . 

. 2,113,000. 



(produced less injected) 
(Lj3C?) 



Reservoir Data: 

Initial reservoir pressure: 1750* 

Present estimated reservoir pressure: 350. 

Saturation pressure: 1600 . 

Oil A.P.I. gravity: '■ . - 23° 

Sulphur percentage: 0 

Royalty Interest: 

Owner : 12 . 

Other: 0.0 

Undepreciated tangible assets on lease: $ 200 , 000 . 

Estimated Reserves: li50,000. 



$500,000. 



Minimum Bid: 



Lease Number 1:3 



Acreage 1511 



Fbst Lease Production Time: 

Producing Formation: 

Average Producing Depth: 

Oil Wells : 

Currently being produced: 
Flowing: 

Pumping : 

Gas Lift: 

Wells that have produced oil: 
Shut in: 

Plugged and abandoned: 
Converted to gas wells: 

Gas Wells : 

Producing: 

Shut in: 

Dry and abandoned: 

Total wells drilled: 

Production to date : 

Oil Production: 

Water Production: 

Gas Production : 

Gas produced from oil: 

Dry Gas: 

Total gas produced: 



2 Months 

Simoson 
lilOO. ft. 



1 . 

0 . 

0 . 

0 . 

0. 

0. 



0. 

0. 

0. 

1. 



1500. . 

-•73. 

600. (MSCF) 

0. 

600. 



Reservoir Data: 

Initial reservoir pressure: 3h93- B5I 

Present estimated -reservoir pressure: 3l>90. 

Saturation pressure: 31:00. 

Oil A.P.I. gravity: 3b° 

Sulphur percentage: 0.' 

Royalty Interest: 

Owner: 12. 

Other: 0,0 



Undepreciated tangible assets on lease: 
Estimated Reserves: 

Minimum Sid: 



$•50,000. 

750,000. 

$ 500 , 000 . 



Ikh 



Lease Number Acreage 2850 

Bar-B-Q Ranch Lease 

Area Description: This area is rolling grasslands in southern Wyoming, 

spotted with rock crests that break abruptly into more grasslands. It 
is presently used to pasture sheep. 

Geological Data: The adjoining ranch was leased about three years ago 

and has been developed and turned out to be very productive. Seismic 
work has been done on the area of this lease next to the producing lease 
and indications are that a fairly large anticline exists under this lease. 
The top of the porous layer that may be productive lies about 1?00 feet 
beneath the surface. 

Drilling History: No wells have been drilled on this lease. The fifteen 

wells on the adjoining lease are presently averaging about 82 barrels a 
day flowing from a depth of 2200 feet. 

Terms: The owner will accept bids for consideration of five dollars per 

acre plus reimbursement of the fee he oaid for the geological studies 
which was two thousand five hundred dollars. Drilling must begin within 
one year or the lessee will pay the lessor a delay rental payment of one 
dollar per acre per year until drilling has started. The lease will 
terminate at the end of five years or when it determined that it is not 
or is no longer economical to produce oil and/or gas. 



Lease Number lt$ Acreage 99 6 

Carolina Coastland Lease 

Area Description: This lease is located in Eastern North Carolina where 

the terrain is flat and sandy. This is an area in which new interest in 
exploration has recently sprung up, and many oil people are very enthu- 
siastic about its future in oil production. 

Geological Data: Magnetic surveys have been recently made of this area 

and they indicated that the sedimentary basin was favorable. No prospective 
formations could be detected. 

Drilling History: This is a new area of drilling interest but none has been 

done so far. 

Terms: The owner will consider bids of one thousand dollars or more as a 

bonus for leasing this land. Drilling must commence within one year or a 
delay rental must be paid to the lessor of one dollar per acre per year. 

The lease will be terminated within five years or when it is determined 
that production of oil and/or gas is not, or is no longer economical. 



Lease Number U6 



Acreage 3-999 



fest Lease Production Time: 


2 Months 


Producing Formation: 


Silurian 


Average Producing Depth: 


7200 ft. 


Oil Wells : 

Currently being produced: 
Flowing: 


1 . 


Pumping : 


0. 


Gas Lift: 


0. 


Wells that have produced oil: 


Shut in: 


0. 


Plugged and abandoned: 


• 0. 


Converted to gas wells: 


0. 


Gas Wells : 


Producing: 


• 0 . 


Shut in : 


0. 


Dry and abandoned: 


0. 


Total wells drilled: 


li 


Production to date: 




Oil Production: 


1500. 


Water Production: 


'300. 


Gas Production: 

Gas produced from oil: 


350. 


Dry Gas : 


0. 


Total gas produced: 


350. 



Reservoir Data: 

Initial reservoir pressure: 
Present estimated -reservoir 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 

Undepreciated tangible assets 
Estimated Reserves : 



3223. 

pressure : 3200. 

• 3300. 
• U3.6° 

.69 



12 . 5 % 

0.0 

on lease: Not available. 

1 , 000 , 000 . 

$633,000. 



minimum 3 id 



Lease Number h7 



Acreage 2301 



Fhst Lease Production Time: 3 Months 



Producing Formation: Ellenburgsr 

Average Producing Depth: 3000. ft. 



Oil Wells : 

Currently being produced: 
Flowing: 

Pumping: 

Gas Lif t : 

Wells that have produced oil: 
Shut in; 

Plugged and abandoned: 
Converted to gas wells: 

Gas Wells : 

Producing: 

Shut in: ‘ 

Dry and abandoned: 

Total wells drilled: 

Production to date: 

Oil Production: 

Water Production: 

Gas Production: 

Gas produced from oil: 

Dry Gas: 

Total gas produced: 



9. 

0. 

0 . 

0 . 

0 . 

0 . 



CO. 

0. 

0. 

9. 



12 , 000 . 

60. 

6100. (MSCF) 

0 . 

6100. 



Reservoir Data: , 

Initial reservoir pressure: 3^33* 

Present estimated -reservoir pressure: 3330. 

Saturation pressure: 3300. 

Oil A.P.I. gravity: .39° 

Sulphur percentage: .1' 

Royalty Interest: 

Owner: 12.5^ 

Other: ' 0.0 



Undepreciated tangible assets on lease: Not available. 

Estimated Reserves: 



Minimum Bid: 



300,000 
$200, OX 



Lease Number IS 



■ i / 



Acreage 2776 



ftst Lease Production Time: 1 Tear 

y 

Producing Formation: Ellonburger 

Average Producing Depth: 5000 ft. 



Oil Wells : 

Currently being produced: 
Flowing: 

Pumping : 

Gas Lift: 

Wells that have produced oil: 
Shut in: 

Plugged and abandoned: 
Converted to gas wells : 

Gas Wells : 

Producing: 

Shut in : 

Dry and abandoned: 

Total wells drilled: 



16 . 

0 . 

0 . 

0 . 

0 . 

0. 



0. 

0* 

0. 

16 . 



Production to date : 

Oil Production: 1-50,000. 

Water Production: 300 . 

Gas Production: 

Gas produced from oil: 101,000. (KSCF) 

Dry Gas : 0. 

Total gas produced: 101,000. 

Reservoir Data: • 

Initial reservoir pressure: h2h7 . 

Present estimated -reservoir pressure: 3900* 

Saturation pressure: 1200. 

Oil A.P.I. gravity: -iil.l° 

Sulphur percentage: * «0 

Royalty Interest: 

Owner: 12.5^ 

Other: 0.0 



Undepreciated tangible assets on lease: 



not available. 



Es-timated Reserves: 



1 , 000 , 000 . 



£ 1 , 000 , 000 . 



Minim-uni Bid: 



Lease Number h? 



Acreage 2205 



Louisiana Marshlands Lease 

Area Description: This land is entirely marshland and all of it is at 

least partially submerged. An oil slick or film is frequently found in 
some sections of the lease on the surface of the water. Recently the 
scum was analyzed and determined to be crude oil. It is assumed that 
the oil exudes from the ground as the marsh is not navigable and is not 
directly connected to the Gulf where ships might well be accountable for 
the oil. Also there are no producing oil fields in the area. 

Geological Data: None. 

Drilling History: This lease was drilled in the early 1930's, however, 

the adverse working conditions and the depression forced the company to 
abandon the lease. A short time later the company went out of business 
and the records of the drilling cannot be located. 

Terms: The state owns the land and is prepared to accept a minimum bid 

of seven thousand dollars, but it will lease to the highest bidder. 
Drilling must start within one year or the lessee will pay the state 
a delay rental of one dollar per acre per year until the time when dril- 
ling is started. The lease will be terminated at the end of five years 
or vfnen it is mutually agreed that the production of oil and/or gas is 
not, or is no longer economical. 



Lease Number $0 Acreage 10 , 000 

Chief Rainbow Lease 

Area Description: The land in this lease is open range grassland used for 

grazing the cattle of the Indians. Rocks protrude in an irregular fashion 
and there are a few trees in some of the valleys. This land is part of the 
Pomocoky Indian Reservation. 

Geological Data: There are thought to be two favorable sedimentary layers 

in the area of this lease, but this has not been tested. 

Drilling History: There has been no drilling on this lease or in the 

vicinity of it. 

Terms: The Council of Chiefs of the Pomocokys will accept a minimum bonus 

of twelve thousand dollars to lease but will lease to the highest bidder. 
Drilling must begin within one year or the lessee will pay a delay rental 
of one dollar per acre per year. The lease will terminate at the end of 
five years or when it is mutually determined that production of oil and/or 
gas is not, or is no longer economical. 



Lease Number 51 



Acreage $700 



Fbst Lease Production Time: 6 Months 



Producing Formation: Bartlesville Sand 

Average Producing Depth: 2200 ft. 



Oil Wells : 

Currently being produced: 

Flowing: 3. 

Pumping: 0. 

Gas Lift: 0. 

Wells that have produced oil: 

Shut in: 0. 

Plugged and abandoned: 0. 

Converted to gas wells: 0. 

Gas Wells : 

Producing: • 0. 

Shut in: 0. 



Dry and abandoned: 
Total wells drilled: 



0. • 

3 . 



Production to date : 

Oil Production: 

' ■ ’Water Production: 

Gas Production: 

Gas produced from oil: 
Dry Gas : 

Total gas produced: ' ' 



27,000. 

h$0. 

5,h00. (MSCF) 
$, 100 . • 

0 . 

$,Uoo. 



Reservoir Data: 

Initial reservoir pressure: 

Present estimated reservoir pressure: 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 



2 $ 00 . 

21 , 85 . 

2U00. 

0. 



Royalty Interest: 
Owner: 

Other: 



12 .$? 

0.0 



Undepreciated tangible assets on lease: 

Ea-tireated Reserves: Lt, 000,000. 



Minimum Bid: 



$ 2 , 500 , 000 . 







. 

I 

1 






Lease Number 52 



Acreage 6?0 



f&st Lease Production Time: 5 -ears 



Producing Formation: Yates 

Average Producing Depth: l;100. ft. 



Oil Wells : 

Currently being produced: 

Flooring: 2. 

Pumping: • • 0. 

Ga3 Lift: 0. 

Wells that have produced oil: 

Shut in: 0. 

Plugged and abandoned: 0. 

Converted to gas wells: 0. 



Gas Wells : 

Producing: 

Shut in: 

Dry and abandoned: 

Total wells drilled: 

Production to date : 

Oil Production: 

Water Production: 

Gas Production : 

Ga3 produced from oil: 

Dry Gas : 

Total gas produced: 

Reservoir Data: 

Initial reservoir pressure: 

Present estimated -reservoir pressure: 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 

s 

Royalty Interest: 

Owner: 

Other: 

Undepreciated tangible assets. on lease: 
Estimated Reserves: 



2 . 

In 



10.360. 

3h5. 

3000 . 

0. 

3000. 



1611. 

1000. 

2100. 

3h° 

1.0 



12 . 5 £ 
0.0 



none 

65 , 000 . 

$30,000. 



(M5CF) 



PS I 



Mini-nun 3 id: 



Lease Number 53 



Acreage 1231 



feat Lease Production Time: ho Months 



Producing Formation: Yates 

Average Producing Depth: 3000. ft. 

Oil Wells : 

Currently being produced: 

Flovdng: 0. 

Pumping: 5» 

Ga3 Lift: 0. 

Wells that have produced oil: 

Shut-in: 0. 

Plugged and abandoned: 0. 

Converted to gas wells: 0. 

Gas Wells : 

Producing: • 0. 

Shut in: 0. 

Dry and abandoned: 3» 

Total wells drilled: 8. 



Production to date: 

Oil Production : 

Water Production: 

Gas Production: 

Gas produced from oil: 

Dry Gas : 

Total gas produced: 

Reservoir Data: 

Initial reservoir pressure: 

Present estimated reservoir pressure: 
Saturation pressure : 

Oil A.P.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 

Undepreciated tangible assets on lease: 
Estimated Reserves : 



2 - 95 , 000 . 

280,000. 

310,000. 

0 . 

310,000. 

1611 . 

1800. 

30° 

0.9 



12.52 

0.0 



(MSCF) 



Minimum Bid: 



300,000 

$ 100,000 



152 



Lease Number 5h Acreage 1330 

Jones Lease 

Area Description: The terrain of the area is hilly and rocky. The southern 

border of the lease is formed by the Missouri River. A small part of the 
lease is used to grow crops, but it is mainly used for cattle grazing. 

Geological Data: The only geological data available are aerial photographs 

taken by the State Geological Survey in i960. A brief examination denotes 
an anticline structure may exist in the area of the lease. It appears 
to be under about two-thirds of the lease running east and west parallel 
to the river. More detailed studies are indicated. 

Drilling History: A well was drilled to about 3S5O feet on an adjoining 

lease that produced a show of oil but mostly brine. The company drilling 
the well was a small wildcatter who used very little geological data to 
support his choice of the drilling sight. This well was drilled before the 
aerial photographs were made and it is believed that the well was drilled at 
the very edge of the structure. Well or core data is not available. 

Terms: The owner will consider no less than fifty cents an acre as a bonus 

for the lease. Drilling is to commence within one year or a delay rental 
will be paid by the lessee to the lessor of one dollar per acre per year. 

The lease will be terminated at the end of five years or when it is mutually 
agreed that production of oil and/or gas is not, or is no longer economical. 



Lease Number $5 Acreage 530 

Joe Funk Lease 

Area Description: Level to slightly rolling land describes this lease 

located in west central Nebraska. It borders on a state owned lake. 

Geological Data: Although there is no geological data available at this 

time, this area is fast becoming a good producer of oil and gas. Most of 
the production in the area is from formations from six to eight thousand 
feet deep. 

Drilling History: There is no record of drilling for oil on this lease. 

Terms: Mr. Funk will lease the land to the highest bidder for not less than 

eight hundred dollars. Drilling should start within one year or lessee will 
be liable to lessor for a delay rental payment of one dollar per acre per 
year. The lease will be terminated at the end of five years if no drilling 
has been started or at such time that it is mutually agreed that production 
of oil and/or gas is not, or is no longer economical. 



Lease Number 56 



Acreage 6000 



Past Lease Production Time: 5 Months 



Producing Formation: Grayburg 

Average Producing Depth: 1:110 ft. 



Oil Wells : 

Currently being produced: 


Flowing : 


3. 


Pumping : 


0 . 


Gas Lift: 


0 . 


Wells that have produced oil: 


Shut in: 


• 0 . 


Plugged and abandoned: 


• 0 . 


Converted to gas wells: 


0 . 


Gas Wells : 


Producing: 


• 0 . 


Shut in: 


0 . 


Dry and abandoned: 


0 . 


Total wells drilled: 


3. 



Production to date: 

Oil Production: 

Water Production: 

Gas Production: 

Gas produced from oil: 

Dry Gas : 

Total gas produced: 

Reservoir Data: 

Initial reservoir pressure: 

Present estimated reservoir pressure: 
Saturation pressure: 

Oil A.P.I. gravity: 

Sulphur percentage: 

Royalty Interest: 

Owner: 

Other: 

Undepreciated tangible assets on lease: 
Estimated Reserves : 



180,000. 

1 , 000 . 

120,000. 

0 . 

120 , 000 . ■ 



1710. 

1675. 

1660. 

■3h° 

1.0 



12 . 5 * 

0.0 



1 , 000 , 000 . 



(JSCF) 



Minimum Bid: 



$ 750,000 



APPENDIXES 



APPENDIX A 
Flow Charts 




L 
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158 




CRATIQ = (CASK(I) + ACCRIC( I) )/(ACC?AI( I) + STLOAN ( I ) ) 




H RE'JLi'io ( I ) = 0.0 



159 




159 



< ,= 




TEMP = (CASK(I) + ACCREC(I) - 2.0 * ACC?AY(I))/2.0 - STLOAN(I) 



V 




STLOAN(I) = STLOAN(I) + REQLMS(I) 
CASH(I) = CA3HU) + RSQLNS ( I ) 
REQLNS(I) =0.0 



TSM? = XLMGTH/IERM5R 



TEL!? 



CASH(I) = CASH(I) + ACCHEC(I) * TEMP 
ACCREC(I) = ACCREC(l) * (1.0 - TEL:?) 
TEL!? « X L\'3T H/T E RLE ? 





TEMP -1.0 


: l.U/S * 












TEL? 


*= 1.0 

> 






1 
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(Sa)-* 



CASH(I) = CASH(I) - ACCPAY(l) * TEMP 
ACCPAY(I) = ACCPAY(I) * (1.0 - TEMP) 
XTLV.Pt, 1 ) = OTHLOS(I) 







161 






[ 16 * 



162 



16 ? 



*^ 603 ) 












M 





163 




I6h 



I6!i 




165 





166 




157 




163 












Q 



159 






170 







171 





172 




173 






17U 




175 









N = Xu?.ILL(l,K,2) 
XORILI (I,K,2 ) « 0.0 



vrpTH rr t T ' 

lxy 



N = It 

XDRILL(l,K,2) ~ X j?ILL(l , K } 2]_ 



“* i 1 9 0 



3 



DO K = l.N 



CALL pad: 


)DO(.-t,uA) 


1 


P 




,CiIlX< 1 

. • 1 U 9 


PJIUL = LESFAC ( li ) 










WEDuno(iAsna:,i) = n 

DL I’.’ IT' ( IAS TiO! j 2 ) = RNUM 
LDSFAC(II) = LiSj/iC(II) - PNUM 
ir.7£LLS ( II ) = :C.V3LIS(II) - 1 
ECLD2 * ;z-;?v0(ll) -a- RlCUi! 

0I1FAC - ( H0LD2 - HOLD 2/t'(?(DZ5R0(Il) ) )/2.0 

PI - GIIFAC/ ( ( ?INT( II) - ?B!T( Il)/FX?(DZ’DFtO(ll) * l.h))/2.C) 






176 






r 

EANDD(l) = 3AK13D(I) + D^riCS 
XJRILL(I,KK,1) = 0.0 
XUHILL(I,KK,2) = 0.0 




X = 0.0 
i7 = 0.0 

CALL rakono(rnul:) 




1 


J 


l 




178 





173 





179 






130 




WRITE X ( 



The computations for 
acid treating, pumping 
& secon lary recovery 
are similar to that of 
fracturing and will not 
be flow' charted. 





L v 


EAHDD(I) = EANDD(l) + FRCCOS 
KOUNT = FOUNT + 1 


f r 











(13 1A 



1 



7/RITE I 



7/RITE ii 



\ WRITS 
FRCCOS 



ZAKDD(I) = EAh'DD(l) + Z *0.1 
Y = Z * 0.6 

TANG ( II ) = TANG (II) + Y 
CASri(T) = CASH(I) - Y * CASHFT 
ACC?AY(I) = ACCRAY(I) + (1. - CASHFT) 
EQC0ST( II ) = IACC3T(II) + l 



V 




131 
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132 





183 




183 
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185 





DGPLEC( II) = IEIECI(II) 



PRATE = 2h./JxLIFE(II) 




TELP ■= iYE3E5/l2 

TELP = E iC03i'( j.1 ) (1.0 



— DPAT I P 



v 



TE*!? = TANG (II) P* 

' ' I ' 

EPEEC(II) = D .' tnTw TZEr TINFaC j 




EEAGK( II) = E;aGE(II) + XLNGTH 
r.GiG(II) = TnEG(lI) - DEPREC(ll) 

TEIIP - GF.OSO(II) - XLG33 ( II ) - OS??:iC(Il)^ 
- DftlLCS(ll) - 0PCC3T(1I) 

DRILL= DP.ILL + DHILCS(II) 




HOLD? = INTAMJ(II) * CILP?.:(lI)/aOSG?3(Il) 

fCS0H3(n) = .t:soes(ii) - oilp:io(ii) 




P^ilDPL = 0.275 * GPOoS ( II ) f 




I 
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i 

I 





13 ? 




168 



138 




C PGA IN = GAINLT(I) + OTHINC(I) 

CPLOSS - XL03LT(I) + OTHLCS(I) 

CASH(I) = ChSH(I) + DIVHSC - INTPAY + TOT REV * CASKFT 
ACCRZC(I) = ACCREC(I) + TOTRSV * (1. - CASHFT) 

DIVPAY = DIVDND(I) * SHARES (I) 

XDRIL * DRILL * CASHFT 

ACCPAY(l) = aCCPaY(I) + DRILL * (l. - CASHFT) 

PSNLTY - ?£NSEL(I,2) + P2NRVT(I,2-) + PSNABD(I,2) + PENDEP(I,2) 

REDEEM = BONDS (I) * TIRFAC * .05 

ACCPrtY ( I) = ACCPAY(I) + EnNDD(l) * (1. - CASHFT) 

CASH(I) = CASH(I) - TOTRYL - REDEEM - DELAY A - XDRIL - TOTOPC - 
OPRES(I) - ABDCOS(I) - EANDQ(I) * CASHFT - PSNLTY ' 

INVEST(I) = INVKST(l) + RSQINV(I) 

BONDS ( I) = BONOS (I) + RK*3ND(I) - REDEEM 

ADMIN = ASSETS(I) .0? 




X = ADMIN - ORCaRY ( I )/0RBA3E * 0.1 



X = ADMIN *0.5"! 



ADMIN = ADMIN - X 
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SUBROUTINE PAKDUO 






APPENDIX B 
Computer Program 



19k 



**** PAYDIRT — AN ENG INEER ING-MANAGENtNT SIMULATION **** 

•*** PROGRAMED IN FORTRAN IV COMPUTOR LANGUAGE **** 

REAL INTANG* INVEST* INTREC* INTPAY* NETINC* LESFAC* MQUOTE PDT 

DIMENSION B I D ( b * 8 * 2 ) * ACRES(pb). I DENT I b ) * LEASE ( b 6 ) * LESSEE ( b *2 0 > PD T 
l*PAYCAP(b)* PENSEL ( b*2 J * RVFRSN<b*4), ABAND ( b * 4 ) * PENRVT<5*2)* PDT 
2 PENABD ( b * 2 ) * NWELLS ( b 6 ) * ABDCOS(b)* OILPRD(b6J* G ASPRD ( b6 ) * PDT 
3GORINTIS6)* NET I NC ( b ) * OTHlNC(b)* SOLDST(b)* GA I NL T ( 5 ) ♦ XLOSLT I b ) ♦ PD T 
4 OPCOST ( b6 ) ♦ RE VNUE < b 6 ) * ROYLT Y ( b 6 ) * GkOSS(bb)* ( NTANG ( b6 ) * PDT 

5TANo( 36 ) * BTXNET(bb)* DlVDND(b)* XLOSS(b6)* DEPLET ( b 6 ) * ACCRtC ( b ) * PD T 
60 EPREC ( 56 ) ♦ DR I LCS ( 36 ) * EuAut (pt>) * IELtCT(b 6 J* RESOKSlbbJ* PDT 

7 VC FAC T ( 56 ) * DZERO ( b t> ) » NtLECT (b*d *2 ) * RENE rt ( b * 6 * 2 ) ♦ PtNDtP(b* 2 J* PDT 
8 ACCPAY ( 3 ) * INVEST ( b ) * CASn(b)» ST LOAN ( b ) * EN.PBEN ( b ) * BONDS ( b ) * PDT 
9 SHARES ( 3 ) * R T EARN ( 3 ) * MQ JOT E ( b ) * REQLNb ( b ) * KEUPAY ( b ) * KEOlNV(b) PDT 
DIMENSION OTHLOSI 3 )* REOBND ( b J * E A.NDD ( b ) * OPRES(b)* NPDATE ( So ) * PDT 

1 FRINGE(b)* P A Y ( 3 ) * URCARY ( 3 ) * OZEROI36)* EOLIFEI36)* EOC05T(36J* PDT 

2 LFSF AC ( 36 ) • T I M F ( b 6 I * G r OFAC(56>* WFLNUM ( 1000*2 ) * NOI36I* PDT 

3 REQFRC (3*4)* REQACD ( b » 4 ) * B I DM ! N ( b6 ) * XDR I LL ( b » a * 2 ) * ASSET S ( 3 ) * PDT 

4 P I NT ( 36 ) * V I SCT Y ( 56 ) * FVF(b6J* RE0PMP(b*4). XTEMPIb)* REOSEC ( b *4 ) PDT 

C PDT 



1 


FORMAT 


( 1H1 ) 


PDT 


2 


FORMAT 


( 1 HO ) 


PDT 


3 


FORMAT 


( 1H0/ ) 


PDT 


4 


FORMAT 


( 1 HU/ / ) 


PDT 


5 


FORMAT 


< 1H ) 


PDT 


8 


FORMAT 


( 2 A6 * I 4 ) 


PDT 


9 


FORMAT 


( 20F4.0 ) 


PDT 


10 


FORMAT 


( IX .20F4.0 ) 


PDT 


11 


format 


I 8 F 1 0 . 2 ) 


PDT 


1? 


FORMAT 


t a 1 1 o ) ■ 


POT 


13 


format 


(7F:0.0, C 10.2) 


PD T 


14 


FORMAT 


( : o i 8 ) 


PDT 


15 


format 


( IX *8F10.0 J 


PDT 


16 


format 


(16F5.2) 


PDT 


17 


FORMAT 


( !X*!6F5.2 ) 


PC T 


18 


FORMAT 


(2014) 


PDT 


19 


FORMAT 


! 1 X * 2 0 1 4 5 


3 DT 


21 


FORMAT 


( IX *8F 1C • 2 ) 


PD~ 


22 


FORMAT 


( ;x*8i 10 ) 


PDT 


24 


FORMAT 


( IX *101 8 ) 


PDT 


25 


FORMAT 


( 8 F 1 0 . 0 ) 


PDT 


26 


format 


( lX*7Fl0«0tF!0.2 ) 


PDT 


27 


format 


I 16F5.0 ) 


PDT 


28 


FORMAT 


( 1X*16F5.0) 


PDT 


29 


format 


(8F10.6) 


PDT 


30 


.FORMAT 


( IX *8F10.6 ) 


PDT 








PDT 




JUMP = 


0 


PDT 




READ (5 


*8) DRY* OIL* NDECKS 


PDT 




READ (5 


* 12 ) month*nyear *length*meses*ncopys*nplay,maxown*lastnn. 


PDT 




READ (5 


*11 ) FINE*0PRICE*GPRICE*ABDNFT*FTAXR.STAXR*3TKFAC*VARC0S 


PDT 




READ (5 


♦ 11 ) 3DRATF_*RENFI T*BENaAS*RLAB0R*PAY3AS*DlVBAS*0RBASE* 


PDT 




1 STRATE 




PDT 




READ (5 


* 11 ) RNUM *ROYL *TERMSR *TERMSP *DVRATE *DRT ANG* DR I NTG *FRCCOS 


PDT 




READ (5 


* 11 ) OILAL"’ *gasalw*dryhcs*cashft *ouot f t * fkcfac *acdfac* 


PDT 




1 EQCSFT 




PDT 




READ (5 


* 11 ) PMPC0S*ACDC0S*SECC05*FRFL0k * ACFLO * ♦ PMFLO A ♦ SR FLOV* * DECLNPDT 




xlngth 


= length 


PDT 




TIMFAC 


= XLNGTH/12. 


pdt 




NDEAL * 


0 


PDT 



1 

2 

3 

4 

3 

6 

7 

6 

9 

10 

11 

12 

13 

14 

lb 

16 

17 

18 

19 

20 

21 

22 

23 

24 

23 

26 

27 

23 

29 

30 

31 

32 

33 

34 

33 

3t> 

37 

38 

39 

^0 

41 

42 

43 

44 

43 

46 

k 7 

46 

49 

30 

bl 

32 

33 

34 

35 

56 

57 
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oo no 


I = 


1 * N P L A Y 


PDT 


58 


HEAD (5 


*11 ) 


C A S H ( I ) * ASSETS ( I ) * ACC HEC ( I ) * ACCPA Y ( I ) * INVEST ( I ) * 


PDT 


59 


1 STLOAN 


( I ) * 


BONDS ( I ) *MQUOTE ( I ) 


PDT 


60 


READ ib 


*11 > 


PAYCAP ( I ) ♦RTEAHM I ) .SHARES ( I ) *ORCARY( I ) .OTHLOSI I ) * 


PDT 


61 


i p a y ( i ) 


* NET INC( I ) * EMPREN! I ) 


PDT 


62 


OT H I NC ( 


I ) = 


0.0 


PDT 


63 


XL05LT ( 


I ) = 


0.0 


PDT 


64 


GAINLT ( 


I ) = 


0.0 


PDT 


65 


IDENT ( I 




0 


PDT 


66 


PENSEL ( 


I *2) 


= 0.0 


PDT 


67 


PENRVT 


(1*2) = 0.0 


PDT 


68 


PE NDEP ( 


I *2 ) 


= 0.0 


PDT 


69 


ARDCOS( 


I ) = 


0.0 


PDT 


70 


110 PENAHD 


( 1,2 ) = 0.0 


PDT 


71 


READ lb 


* 18 ) ( ( LESSEE ( I * < ) * K = 1 * 20 ) * I = 1*NPLAY) 


PDT 


72 


READ (b 


*18) 


LEASE 


PDT 


73 


READ (5 


*18) 


NWELLS 


PDT 


74 


READ (5 


*19 ) 


NPDATE 


PDT 


75 


READ ib 


*11 ) 


RESORS 


PDT 


76 


READ (5 


*27) 


EQL IFE 


PDT 


77 


READ (5 


*27) 


EQAGE 


PDT 


78 


READ (5 


*11 ) 


TANG 


PDT 


79 


READ (5 


*11 ) 


I NTANG 


PDT 


80 


READ (5 


*18) 


IELECT 


PDT 


81 


READ ib 


*16) 


vcfact 


PDT 


62 


READ (5 


*11 ) 


ACRES 


PDT 


83 


READ ib 


*16) 


GEG F AC 


PDT 


84 


READ (5 


*11 ) 


lesfac 


PDT 


85 


READ ib 


*11 ) 


T I v* E 


PDT 


86 


READ ib 


*11 ) 


QZERO 


PDT 


87 


READ ib 


*29 ) 


DZERO 


PDT 


88 


READ ib 


*18 ) 


NO 


PDT 


89 


READ ib 


*26) 


R I 0 M I N 


PDT 


90 


HEAD ib 


.9 ) 


(WtLN‘JM( 1*1)* 1 = 1 *1000) 


PDT 


91 


HEAD ib 


*16) 


( WELN'JM ( I *2 ) * 1 = 1*1000) 


PDT 


92 


READ (5 


*25 ) 


EOCOST 


PDT 


93 


READ ib 


*25 ) 


PINT 


PDT 


94 


READ (5 


*11 ) 


VISCTY 


PDT 


95 


READ ib 


*16) 


fvf 


PDT 


96 


READ ib 


*25 ) 


GORINT 


PDT 


97 


101 WRITE (6*1) 




PDT 


98 


WRITEI6 


*8) 


DRY. OIL* NQECKS 


PDT 


99 


WRITE (6 


*22 ) 


MON TH.N YEAR *LEiNGTh *MESES . NCOPYS *NPLAY .MAXOWN *LASTNM 


PDT 


100 


WRITE (6 


*21 ) 


fine *opr I ce *GPR I CE *ABDNFT .FTAXH .$TAXR.STKFAC*VARCOS 


PDT 


101 


WRITE (6 


*21 ) 


HAT EBD * dENF I T . BENB AS * HL ABOH * P A YB AS *D I VBAS *OHBASE * 


PDT 


102 


1 5TRATE 






PDT 


103 


WRITEI6 


*21 ) 


RNJM.ROVL *TtRMSR * T EHMSP *DVRAT t *DRTANG * DR I NTG *FHCCOS 


PDT 


104 


WRITEI6 


*21 ) 


OILALW *GASALW*DRTHCb*CASHFT *QUOT F T ♦ FRCF AC * ACDFAC * 


PDT 


105 


1 EOCSFT 






PDT 


106 


WRITE! 6 


*21 ) 


PMPCOS * AC DCOS * SECCOS *FR FLOW .ACFLOW* PMFLOW.SK FLOW* DECLNPDT 


107 


DO 102 


I = 


1 *NPLAY 


PDT 


108 


WR I.TEI6 


*26) 


CASH ( I )* ASSETS ( I ) *ACCREC( I ) * ACCPA Y( I ). INVEST (I ) * 


PDT 


109 


1 STLOAN 


( I ) * 


RONDS ( I ) *MQUOTE ( I ) 


PDT 


110 


102 WR I T E ( 6 


*26) 


PAYCAP ( I ) *RTEARN ( I ) *SHARES ( I ) *ORCARY( I ) .OTHLOS ( I ) * 


PDT 


111 


1 PAY( I ) 


* NET I NC ( I ) * EMPRENt I ) 


PDT 


112 


WRITE (6 


* 19 ) ( ( LESSEE ( I *K ) * K. = 1 * 20 ) * I=1*NPLAY) 


PDT 


113 


WRITEI6 


*19) 


LEASE 


PDT 


114 


WRITEI6 


*19) 


NWELLS 


PDT 


115 


WR I T E ( 6 


*19) 


NPDATE 


PDT 


116 


WRITEI6 


*15) 


RESORS 


PDT 


117 





i 

i 
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WR I T E I 6 * 2ft ) EQLIFE PDT 

WRITE(6,28) EQAGE PDT 

WR!TE(6,15) TANG PDT 

WRITE (6*1) PDT 

WRITE(6,15) INTANG PDT 

WR I T E ( 6 * 1 9 ) IFLECT PDT 

WR I T E ( 6 * 1 7 ) VCF ACT PDT 

WRITE(6,15) ACRES PDT 

WRITE(6*17) GEOFAC PDT 

WR I T E ( 6 * 2 1 ) LESFAC PDT 

WR I T E ( 6 * 2 1 ) TIME PDT 

WRITE (6*21 ) OZFRO - PDT 

WR I T E ( 6 * 3G ) DZERO PDT 

WR I T E ( 6 * 1 9 ) NO PDT 

WR I T E ( 6 * 1 5 ) R I 0 M I N PDT 

WRITE (6*1) PDT 

WR I T E ( 6 * 1 J ) ( WELNUMt I *1 ) * 1 = 1*1000) PDT 

WRITE (6*1) - PDT 

WR I T E ( 6 * 1 7 ) ( WELNUM ( I * 2 ) * 1 = 1*1000) PDT 

WRITE (6*1) PDT 

WR I T E ( 6 * 1 5 ) F.QCOST PD-T 

WR I T E ( 6 * 1 6 ) PINT PDT 

WR 1 T E ( o * 2 1 ) VISCTY PDT 

WR ! T E ( 6 * 1 7 ) FVF PDT 

WRITE (6*15) GORINT PDT 

IF ( JUMP *GT *0 ) GO TO 999 PDT 

115 CONT INUE PDT 

WRITE (6*1) PDT 

DO 120 I = 1,66 PDT 

GASPPO( I ) = 0 ; 0 • PDT 

REVNUE ( I ) = 0.0 PDT 

ROYLTY ( I ) = 0 . C PDT 

GROSS ( I ) = 0.0 PDT 

OPCOST ( I ) = 0.0 PDT 

DEPRtC ( I ) = u.O PDT 

DEPLET ( I ) =0.0 PDT 

BTXNET ( I ) = 0.0 PDT 

DRILCS( I ) = 0.0 PDT 

XLOSS ( I ) = 0.0 PDT 

IF (VCFACTI I J.EQ.O.O) VCFACT ( I ) = VARCOS PDT 

120 CONT INUE PDT 

C **** READ IN PLAYER DFCISIONS. PDT 

DO 130 I = 1*NPLAY PDT 

READ (5*11) D I VDND ( I ) * RECLNS(I)* REGBND ( I ) * REUINV(I)* SOLDST ( I ) *PD T 
1 RFOPAY(I)* OPR FS ( I ) * FRINGF(I) PDT 

*RITE(6*26) 0 I VDND ( I ) * REOLNS(I), REOBNU(I), REOINV(I)* SOLDST ( I ) *PDT 
1 REQPAY ( I ) * OPRES(I)* FRINGE(I) ■ PDT 

READ (5*11) (PID(ItJtl)* J = 1 * 8 ) PDT 

WR I TE ( 6 , 1 5 ) IBID(lfJtl)* J=l*8) . PDT 

READ (5*11) (RID(I*J*2)* J=l*8) PDT 

WR I T E ( 6 , 1 5 ) IBID! I * J*2 ) * J = l*8) PDT 

READ (5*11) (RVFRSM I *J) * J=l*4), (APAND(I*J)t J=1 *4 ) PDT 

WR I TE ( 6 * 1 5 ) (RVERSM I * J) * J=l*4), (APAND(I*J)* J=l*4) PDT 

READ (5*11) ( RPNEW( I *J* 1 ) * J = 1 * 8 ) PDT 

WR I T E ( 6 , 1 5 ) ( RENEW ( I * J * 1 ) * J = l*8) PDT 

READ (6,11) (RENEW! I *J*2) * J=l*8) PDT 

WR I T E ( 6 * 15 ) (RENEW! I * J * 2 ) * J = l*8) PDT 

READ (5*12) ( NELEC T ( I *J*1) *J = 1*8) PDT 

WRITE! 6*22) ( NELEC T( I * J * 1 ) * J = 1 * 8 ) PDT 

READ (5*12) ( NcLECT ( I * J*2 ) * J = 1 *8 ) PDT 



118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

1 3 A 

135 

136 

137 

138 

139 

1 AO 

1 A 1 

1A2 

1 A3 

1 A.A 

145 

1 46 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 
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WR I TE ( 6 » 2? ) ( NELEC T ( I .J.2) * J = 1 *8) POT 

READ (5*25) ( XDR I L L ( I * J * 1) * J=l*8) POT 

WRITE(6*15) ( XORlLU I *J.l ) * J=1.8) PD T 

READ (5*25) ( XDR I L L ( I * J * 2 ) * J=l*8) PD T 

WRITE(6*15 ) ( XDR ILL ( I * J*2 ) * J=l*b) PD T 

READ (5.25) (KEOFRCt l *J) *J = 1 .4) . (REuACDt I *J) . J= 1 » 4 ) PDT 

W R I T E ( 6. 15 ) ( REOF RC ( I * J ) * J = 1 *4 ) * ( KEUACD ( I * J ) • J = 1 *4) PDT 

READ (5*25) ( REOPMP( I . J) *J = 1 ,4 ) t ( H EGSEC ( I * J ) * J = 1 * 4 ) PDT 

"RITt (6.15 ) ( RE'JPMP ( I *J ) *J»1 *4 ) . (KELStC ( I *J ) *J = 1 *4 ) PDT 

IF ( LENGTH. EU.O ) GO TO 130 PDT 

IF (RFOLNSI U.LT.O.l) GO TO 127 PDT 

CRATIO = (CASrt(I) + ACCRtC ( I ) ) / ( ACC PA Y ( I ) + STLOANII)) PDT 

IF (CRATI0.LE.2.0) RFOLNS( I ) = 0.0 PDT 

IF (CRAT IO.LE.2.0 ) GO TO 129 PDT 

TEMP = (CASH* I) + ACCREC(I) - 2*0 * ACCPA Y ( I ) ) /2 . 0 - STLOAN(I) PDT 
IF (RFOLNS( I ) .LE.TFMP) GO TO 129 PDT 

RFQLNSI I ) = TF‘xd PDT 

127 IF ( REQLNS ( I ) .LT.t-U.l ) ) GO TO 128 PDT 

GO TO 129 PDT 

128 ST LOAN ( I ) = STLOAN ( I ) + REOLNS(I) PDT 

CASH* I) = CASH(l) + REOLNS(l) PDT 

REOLNS( I ) = 0.0 * PDT 

129 TEMP = XLNGTH/TERMSR POT 

IF ( TEMP.GT .1.0) TEMP = 1.0 PDT 

CASH*!) = CASH(I) + ACCRTC ( l ) * TEMP PDT 

ACCREC ( 1 ) = ACCREC(I) * (1.0 - TEMP) PDT 

TE*P * XLNGTH/TERMSP PDT 

IF ( TEMP.GT. 1 .0) TEM° = 1.0 PDT 

CASH* I) = CASH(I) - ACCPAY(I) * TEMP PDT 

ACCPAV(I) = ACCPAY(I) * (1.0 - TEMP) PDT 

XTFvp( i ) = 0THLOS( I ) PDT 

130 CONTINUE ‘ PDT 

11=0 PDT 

C **** CHECK TO SEE IF LEASE IS FOR SALE. PDT 

189 II = 11 «■ 1 PDT 

IFUI.GT.56> GO TO 199 PDT 

IF ( LEASE ( ( I ) *GT .0 ) GO TO 200 PDT 

GO TO 189 . POT 

200 TEMP = LEASE ( I I ) PDT 

216 NCHFCK = 0 PDT 

NEQUAL = 0 PDT 

DO 201 I = l.NPLAY PDT 

DO 202 J = 1.8 PDT 

c **** CmECK PLAYERS BIDS FOR BIDS ON The first AVAILABLE LEASE. PDT 

IF (BID! I .J.l ) .LT.0.01 ) GO TO 202 PDT 

IF (R1D( I. J.l). EO. TEMP. AND. NCHFCK.EO.O) GO TO 224 PDT 

IF ( R I D ( 1. J.l ).E0. TEMP) GO TO 203 PDT 

GO TO 202 p DT 

224 IF (RIDM1N( I I ) .GT.RID( 1 t J.2 ) ) GO TO 201 PDT 

206 HOLD? = RID* I. J.2) . p DT 

NEGUAL = 1 PDT 

I D FNT ( 1 ) = I PDT 

NCHECK = 1 PDT 

GO TO 201 PDT 

203 IF (8ID( I*J*2).GT. HOLD 2 ) GO TO 206 PDT 

IF ( BID( I * J.2 ) .NE.H0LD2 ) GO TO 201 PDT 

NEOUAL = NEQUAL + 1 PDT 

IDENT(NEOUAL) = I p DT 

GO TO 201 p DT 

202 CONTINUE p DT 



178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 
1980 

1 9o 1 

199 

200 
201 
702 

203 

204 
2*05 
206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 
219 

2 20 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 
2 34 

235 

236 



201 CONTINUE POT 

I F ( NEQUAL • EQ. 1 ) GO TO 210 POT 

IF (NEQUAL .EO.O. AND.NDEAL.f-Q.O ) GO TO 189 POT 

IF (NEOUAL.EO.O.AND.NOEAL.GE.l I GO TO 199 POT 

209 CALL RANDNO ( RNU M ) POT 

X = 0.0 POT 

L = NEQUAL POT 

Y = l.Q/Z POT 

T = Y POT 

DO 207 I = UNEQUAL POT 

IF ( RNUM *GT • X . AND . RNU M . LE • Y ) GO TO 20b POT 

X = Y POT 

Y = Y + T POT 

IF (Y.GE.1.0) Y = 1.0 POT 

207 CONTINUE POT 

20B I = IDENK I ) POT 

214 CONTINUE POT 

DC 211 J = U^AXOWN POT 

IF (LESSEE ( I * J) .EQ.OJ GO TO 212 PD T‘ 

211 CONTINUE PD T 

212 LESSEE ( I * J ) = TEMP POT 

LE ASE ( I I J = 0 POT 

GO TO 213 POT 

210 I = I O r \ f ( 1 J POT 

GO TO 214 POT 

213 CASH(I) = CASH! I) - H0LD2 * C ASHF T POT 

AC CRAY ( I ) = ACC D AY ( I ) + H0LD2 * (1. - CASHFT) POT 

IF (NDEAL.GT.O) GO TO 22‘J • ?0T 

GO TO 221 POT 

220 H0LD1 = TANG ( I I ) - I NT ANG (II) POT 

IF (H0LD2.GT. H0LD1. AND. MESES-.\POATE< I I) .GT.6) GA I NLT ( NDcAL ) = PD T 

1 GAIMLT(NDEAL) - HOLD 2 - hOlDI ?DT 

IF IhOLC2.LT.HOi_Dl.AND.,MESES- ? lPDATE( I I J .GT.6) XLOSLT ( NOcAL ) = PCT 

1 XLOSLT ' NOEAL ) + HOL01 - HCLD2 PD T 

IF (MESES - NPDATECI ) .LE.6.AM0.H0LD1 .GT.HCLD2 ) PD T 

IXLOGLT ( NDEAL ) X LCSL T ( N DEAL ) - r»CLD2 + hQlDI PDT 

IF (.YESES - \PDATE( I I ) .LE.6.AND.H0LD1.LT.H0LD2) PDT 

1 OTHlNC ( NtDEAL ) = CTH I NC l NDE AL ) + HOLD 2 - HOLD 1 PDT 

CASH(NDEAL) = CASH(NDEAL) + H0LD2 * CASHFT PDT 

ACCREC(NDEAL) = ACCREC(MDEAL) + HCLD2 * (1. - CASHFT) PDT 

221 IF (NWELL6( I I ) .NE . 0. AND. NDEAL.EQ.O ) EQCOST(II) = HCLD2 * EOCSFT PDT 

IF (NDEAL.EQ.O) ^ ANG (II) = EQCOoT (II) POT 

•NPOATE ( I I ) = MFSES + 1 PDT 

IN TANG (II) = H0LD2 - TANG (II) PDT 

HOLD 1 = 0.0 PDT 

H0LD2 = 0.0' PDT 

IF (NDEAL.GT.O) GO TO 199 . PDT 

GO TO 189 PDT 

199 CONTINUE PDT 

NDFAL = 0 PDT 

DO 231 I = 1*N?LAY PDT 

DO 231 J = 1*8 PDT 

IF (BID( UJ.1 ) .LT. (-0.01 ) I GO TO 233 PDT 

GO TO 231 PDT 

233 I I = -BID! UJ.l) PDT 

DO 234 < = UMAXOWN PDT 

IF (II. EO. LESSEE! UK) ) GO TO 235 PDT 

234 CONTINUE PDT 

GO TO 236 PDT 

235 R I DM INC I I ) = P I D ( I »J*2 I PDT 



237 

238 

239 

240 

241 

242 

243 

244 

245 

2 4 6 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

253 

259 

260 

261- 

262 

263 

264 

265 

266 

2o 7 

26b 

269 

270 

271 

272 

273 

274 

275 

276 

277 

27b 

279 

260 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 



D 




199 





LESSEE ( I »K ) =0 










POT 


297 




TE^P = I I 










POT 


298 




B I D( I » J , 1 ) = 0.0 










POT 


299 




BID! I *J *2) = 0.0 










POT 


300 




NOEAL = I 










POT 


301 




GO TO 216 










POT 


302 


2 36 


PE NSEL (1*2) = PENSEL(I»2) + FINE 










POT 


303 




PENSELI 1*1) = -BIO( I * J * 1 ) 










POT 


304 




RID( I *J* 1 ) = 0.0 










POT 


305 


231 


CONTINUE 










POT 


306 


**** lease reversion. 










POT 


307 




00 241 I = 1 * NPLA Y 










POT 


308 




00 241 J = 1,4 










POT 


309 




IF (RVERSN ( I *J) .LT.U.01 ) GO TO 241 










POT 


310 




I I = RVERSN ( I * J ) 










POT 


311 




IF ( NWELLS ( I I ) • GT • 0 ) GO TO 241 










POT 


312 




00 244 < = l.MAXOWN 










POT 


313 




IF (LESSEE! I *K) .EQ.II) GO TO 245 










POT 


314 


244 


CONTINUE 










POT 


315 




GO TO 243 










POT 


316 


245 


lease cm = I : 










POT 


317 




RVFRSNt I * J ) = 0.0 










POT 


318 




LESSEE ( 1*0 = 0 










°DT 


319 




IF ( v ESES-N p 0A"C{ I I ) .LE.6) XLQSL T t I ) = 


XLOSL T 


( I ) 


+ 


INTANG! I I ) 


J 0T 


320 




IK t y EScS-NP J AT E ( I I ) .GT • 6 ) XLOSLT ( I ) = 


XLOSLT 


( I ) 


+ 


INTANGt I I ) 


PDT 


321 




i N TANG (II) = 0.0 










POT 


322 




GO T 0 241 










POT 


323 


243 


?E.\RV' r ! I .2 J = PEN RVT f 1,2) + FINE . 










POT 


324 




P NRVT (1*0 - RVERSN i l • J ) 










POT 


325 




RVERSN ( I * J ) - C • 0 










POT 


326 


241 


CC\7 ; \ JE 










POT 


327 


LEASE ABANDONMENT. 










POT 


325 




00251 I = ] *\^lA^ 










P 0T 


329 




DO 237 J = 1*4 










POT 


330 




IF t ARAINDt I *J).L7.r>.o: ) GO 70 251 










POT 


331 




II = Aft AND ( I • J ! 










POT 


332 




00 253 < = 1*N'AaC>'N 










POT 


333 




IF ( LESSEE I I * < ) .EG . I I ) oO TO 254 










POT 


3 34 


253 


CONTINUE 










POT 


335 




P£NAr>0( 1*1) = AoANDi I *J) 










POT 


336 




PE NAdO (1*2) = PCNA5DC.2) ^ FINE 










POT 


337 




GO TO 251 










POT 


338 


254 


•vELLS - NWELLS! I I ) 










POT 


339 




AflDCOS ( I ) = APDCOS ( I ) * WELLS * ARONFT 










POT 


340 




IF (MESES-NPDATEi I I ) .LE.6) OThlOS(I) = 


OTH LOS( I ) 


+ 


INTANGt I I ) 


PD T 


341 




1 + T ANG £ I I ) 










POT 


342 




IF (MESES-NP0A7ECin.GT.61 XLOSLT(I) = 


XLOSLT ( I ) 


+ 


INTANGt I I ) 


POT 


343 




1 + TANG! I I ) 










‘POT 


344 




INT4NG! II) - 0.0 










POT 


345 




TANG( II) = O.C 










POT 


346 




LESSEE ( I *<) = 0 










POT 


347 




N WELLS ( II) = 0 










POT 


348 




LESFACt II) = 0.0 










POT 


349 


232 


CONTINUE 










PDT 


350 


251 


CONTINUE 










POT 


351 




TEMP = 0.0 










PDT 


352 




H0LD1 * 0.0 










PDT 


353 




H0L02 - 0.0 










PDT 


354 




DO 300 I = 1 * NPLA Y 










PDT 


355 




IF (RENT IT .GT.0.01 ) FRINGE(I) = PENFIT 










POT 


356 



200 



300 



310 



801 



802 



630 



603 



IF (REQPAY < I ) .GT. 1 . 1*PAYRAS 1 REUPAY(I) = 


1.1 


* 


PAYBAS 


PD T 


3 37 


IF (REQPAY { I ) .LT.0.9#PAYUAS) REQPAY(I) = 


0.9 


* 


PAYBAS 


PDT 


358 


IF (RLAH0R.GT.0.1 ) REQPAY ( I ) = RLABOR 








PDT 


359 


IF (FRINGE! I ) .GT .2 .U*BENBAS ) FRINGE! I ) = 


2.0 


* 


BENBAS 


PDT 


360 


IF (REQPAY ( I ) .GT .0. 1 ) PAY(I) = REQPAY ( I ) 








PDT 


361 


IF (FRINGE) I ) .GT.O.OI) EMPBEN ( I ) = FRINGE(I) 






PDT 


362 


TEMP = TEMP + PAY ( I ) 








PDT 


363 


NETINC(I) = NET I NC ( I ) » XLNGTH 








PDT 


364 


H0LD1 = HOLD 1 + NETINC ( I ) 








PDT 


365 


HOLD? = H0LD2 + EMPBEN ( I ) 








PDT 


366 


X = NPLAY 








PDT 


367 


PAYAVG = TEMP/X 








PDT 


368 


BENAVG = H0LD2/X 








PDT 


369 


AVGINC = H0LD1/X 








PDT 


370 


SALE = 0.0 








PDT 


371 


DO 310 I = 1 » S6 








PDT 


372 


IF ( LEASE ( I ) .GT .0 ) SALE = SALE + 1.0 








PDT 


373 


CONTINUE 








PDT 


374 


MONTH = MONTH + LENGTH - 1 








PDT 


375 


IF ( MONTH. GT . 12 ) GO TO 801 








PDT 


376 


GO TO 80? 








PDT 


377 


MONTH = MONTH - 12 








PDT 


378 


NYEAR = NYEAR + 1 








PDT 


379 


I TEMP = MESFS 








PDT 


380 


DO 601 I = 1, NPLAY 








PDT 


381 


ISTRIK = 0 








PDT 


382 


STRIKE = (1.0 - PAY ( I ) /PAYAVG ) + (1.0 - 


PAY ( I ) /PAYBAS ) 


PDT 


363 


STRIK2 = (1.0 - EMPBEN ( I ) /BENAVG) + (1.0 


- EMPBEN < I ) /BENGASI 


PDT 


364 


IF (STKFAC.LE.0.0 ) STKFAC = 0.001 








PDT 


385 


STRIKE = (STRIKE + STRIK2) * STKFAC 








PDT 


386 


IF (STRIKE. LT. 0.0) STRIKE = 0.0 








PDT 


387 


IF (STRIKE. GT.l.C) STRIKE = 1.0 








PDT 


388 


CALL RANDNO(RNUM) 








P-DT 


369 


IF (RNUM.GT .0.0. AND. RNUM.LT. STRIKE) ISTRIK = 


1 




PDT 


390 


OWN = 0.0 








PDT 


391 


EMFRG =0.0 








PDT 


392 


TOTTAN = 'u.o 








PDT 


393 


TOTINT = C.O 








PDT 


394 


DELAYR = 0.0 








PDT 


395 


DRILL = 0.0 








PDT 


396 


TOTREV = 0.0 








PDT 


397 


TOTRYL = 0.0 








PDT 


398 


TOT OPC = 0.0 








PDT 


399 


TOTDPR = 0.0 








PDT 


400 


TOTDPL = 0.0 








PDT 


401 


TOTRES = 0.0 








PDT 


402 


TOTGRO = 0.0 








PDT 


403 


TOTGAS = 0.0 








* PDT 


404 


ADD = 0.0 








PDT 


4^05 


TOTOlL = 0.0 








PDT 


406 


OTHEXP = 0.0 








PDT 


407 


KOUNT = 0 








PDT 


408 


FUDGE = 0.0 








PDT 


409 


TOTHRS = 0.0 








PDT 


410 


WRITE (6.1) 








PDT 


411 


DO 602 J = l.MAXOWN 








PDT 


412 


IF (LESSEE! I »J) »GT .0) GO TO 603 








PDT 


413 


GO TO 602 








PDT 


414 


I I = LESSEE ( I »J) 








PDT 


415 


OWN = OWN + 1.0 








PDT 


416 



201 





iemp = 1 1 






POT 


417 




MESES = I TEMP 






PD T 


418 




00 632 JJ = 1. LENGTH 






PD T 


419 




IF IN WELLS! I I ) .EQ.O) GO TO 633 






PDT 


420 




IF ( ISTR IK.EQ. 1. AND.JJ.LT. 3 ) GO TO 632 






PD T 


421 




0 1 L 1 = OZEROI I I l/EXPI OZEROI I I ) * TIME! I I 


) ) 




PDT 


422 




0IL2 = OZEROI I I ) / EXP ( DZ EROI I I ) » (TIMEIII) + 1.0)) 




PDT 


423 




OILFAC = (OIL! + OIL21/2.0 






PDT 


424 




00 64 8 K = 1.4 






PDT 


425 




IF (REQFRCI I »K1 .EQ.TEMP) GO TO 633 






PDT 


426 




IF (REQACDI I ,K ) .EQ.TEMP ) GO TO 633 






PDT 


427 




IF (RF.QPMPI I .K) .EQ.TEMP) GO TO 690 






PDT 


428 




IF (REQSECI I >K) .EO.TEMP) GO TO 691 






PDT 


429 


64 8 


CONTINUE 






PDT 


430 


680 


CONT INUE 






PDT 


431 




IF (OILFAC. LT.O. 01 ) GO TO 616 






PDT 


432 




GFAC = GORINTI I I )/lU. 






PDT 


433 




G0R1= (1. + SINI3. 141639 * I3./2. + T I ME I I I ) /GFAC ) ) ) 


* 


PDT 


434 




1 OZEROI I I) * (10. /OZEROI I I ) 1/01L1 + GO- 


+NTI I I 1 




PDT 


435 




G0R2 = 11. + SINI3. 141639 * I3./2. (- (TIMEIII) + 1.01 /GFAC ) ) ) * 


PDT 


436 




1 OZEROI I I) * (10. /OZEROI I I ) 1/0IL2 + GORINTI II) 




PDT 


437 




GOR = I GOR 1 + G0R2 1/2.0 






PDT 


438 




IF (GOR.LT .GORINTI II 1*0.9) GOR = GOR I NT I I I I * 0.9 




PDT 


440 




OILFAC = OILFAC * 30. 






PDT 


441 




PRDOIL = C.O 






PDT 


442 




PROGAS = U.O 






PDT 


443 




00 683 K = 1 , 1000 






PDT 


444 




IF I WELNUM I < * l ) . EQ. TEMP ) GO TO 684 






PDT 


445 




GO TO 683 






PDT 


446 


684 


PROOIL = PRDOIL + OILFAC * WELNUM ( K ♦ 2 ) 






PDT 


447- 


683 


CONT IMUF 






PDT 


*448 




H0LD2 = PRDOIL 






PDT 


449 




x = n wells i in 






PDT 


450 




IF <PRD0IL.GT.X*0ILALW) PROOIL = X * OILALW 




PDT 


451 




PROGAS = PRDOIL * GOR * .001 






PDT 


452 




IF I PROGAS. GT.X*GASALW) PRDOIL = GASALW 


» X/ I GOR * . 


001 ) 


PDT 


453 




PRDGAS = PROOiL * GOR * .001 






PDT 


454 




OILPRO(II) = OILPROIIIJ + PRDOIL 






PDT 


45 5 




GASPRDIII) = GASPRDI I I ) + PRDGAS 






PDT 


4 5 6 




TIMEIII) = TIMEIII) + PR00IL/H0LD2 




. 


PDT 


4 D 7 


633 


CONT INUE 






PDT 


458 




DO 630 < = l.»8 






PDT 


459 




KK = K 






PDT 


460 




IF (XORILL ( I » K » 1 ) .EO.TEMP.AND.NWELLSI I I ) 


.EQ.O) GO TO 


658 


PDT 


461 




IF (XDRILLI I * < » 1 ) . EQ.TEMP. AND. X DR ILL! I »K 


,2 ) .GT.0.1 ) 


GO TO 651 


PDT 


462 


650 


CONT INUE 






PDT 


463 




IF INWELLS I I 1 ) .GT.O) GO TO 676 






PDT 


464 




IF (MESES-NPDATEI I I I.GT.12) GO TO 657 






PDT 


465 




IF (MESES - NPDATE ( I I ) .GT.60 ) GO TO 636 






PDT 


4651 




GO TO 621 






PDT 


466 


657 


DELAYR = DELAYR * ACR ES I I I ) / 1 2 . 0 






PDT 


467 




GO TO 621 






PDT 


4680 


636 


LEASE I II) = II 






PDT 


4681 




LESSEE! I ,J) = 0 






PDT 


4682 




XLOSLTIIII = XLOSLTIII) + INTANG (II) 






PDT 


4683 




INTANGI IT) = 0.0 






PDT 


4684 




GO TO 621 






PDT 


4685 


651 


(COUNT * KOUNT + 1 






PDT 


469 




IF I (COUNT . EQ • 1 ) WRITE (6.1100) I 






PDT 


470 




IF (JJ.EQ.l) WRITE (6,11011 II 






PDT 


471 



( 



202 



IF (XDR ILL ( l *K»2 ) .GT.4 .0 ) GO TO 634 
N = XDR ILL ( I * < * 2 ) 

XDRILLt I *K *2 ) = 0.0 
GO TO 635 
633 N = 4 

XDR ILL ( I *K »2 ) = XDR1LL ( I ,K ,2 ) - 3.0 
635 CONTINUF 

DO 652 < = 1 .N ' 

CALL RANDNO(RNUM) 

IF ILESFACI I I ) .LT.0.U01 ) GO TO 659 
IF (LESFACI I I l-RNUM.LE.0.0 ) RNUM = LESFAC(II) 

WELNUM ( LASTNM , 1 ) = II 
WELNUM1LASTNM.2 ) = RNUM 
LESFACI I I) = LESFACI I I) - RNUM 
NWELLS! I I) = NWELLS I I I ) + 1 
HOL02 = QZFROI I I ) * RNUM 

OILFAC = (HOLD2 - HOLD2 /EXP ( DZERO < I I ) ) ) /2 .0 

PI = OILFAC/ I (PINT I I I ) - PINT! I 1 J/EXPI DZERO III) * 1.4))/2.0) 

WRITE (6.1114) JJ, K, OIL. H0L02 . P I NT I 1 1 ) . PI 

DR ILCS (II) = DRILCS(II) + DRINTG 

CASH! I) = CASH! I) - CASHFT * DRTANG 

AC CP AY ( I ) = ACCPAY(I) + (1.0 - CASHFT) * DRTANG 

TANG(II) = TANG (II) + DRTANG 

EOCOST(II) = EOCOST(II) + DRTANG 

LASTNM - LASTNM + 1 

IF ( NO ( ! 1 ) . L T . 4 0 ) EANDD(I) = EANDD(I) + FRCCOS 
IF ( MO ( I I ) . L T • 2 5 ) EANDD(I) = EANDD(I) + PMPCOS 
652 CONTINUE 
GO TO 676 

65B KOUNT = <OUNT + 1 

IF (KOUNT. FQ.l) WRITE (6.1100)- I 
IF (JJ.EC.l) WRITE (6.1101) II 
XDR ILL! I »K .2 ) = XDR ILL ( I .K .2 ) - 1.0 
CALL RANDNO(RNUM) 

IF ( RNUM.GT .GEOFAC ( I I ) ) GO TO 659 
GO TO 660 

659 GEOFACI II) = 0.0 
HOLD2 = 0.0 

IF ( NWELLS ( I I ) .E0.0) K = 1 
WRITE (6*110 3-) JJ. K. DRY, H0LD2 
EANDD(I) = EANDD(I) + DRYHCS 
XDR ILL ( I .KK , 1 ) = 0.0 
XDR ILL ( I ,KK»2 ) = 0.0 
IF (NWELLS! I I ) .GT.O) GO TO 676 
GO TO 621 

660 X = 0.0 
W = 0.0 

CALL RANDNO(RNUM) 

DO 661 K = 1 » 9 
W = W -*■ FLOAT ( K ) 

Y = W/45. 

IF (RNUM. GT.X. AND. RNUM. LE.Y) GO TO 662 

661 X = Y 

GO TO 616 

662 CALL RANDNO(RNUM) 

GO TO ( 66 3 ♦ 66 4 , 66 5 ♦ 666 , 66 7 ♦ 6 6 8 , 66 9 ♦ 6 7 0 , 6 7 1 ) , K 

663 CALL RANDNO ( RNUM ) 

IF (RNUM. LT. 0.5) GO TO 663 
RESORS (II) = RNUM « 16460000. 

LESFACI I I) = RESORS ( I I ) .* .00U002 



PD T 472 
PD T 473 
PDT 474 
PD T 475 
PDT 476 
PDT 477 
PDT 478 
PDT 479 
PDT 480 
PDT 481 
PDT 482 
PDT 483 
PDT 484 
PDT 485 
PDT 486 
PDT 487 
PDT 488 
PDT 489 
PDT 490 
PDT 491 
PDT 492 
PDT 493 
PDT 494 
PDT 495 
PDT 49b 
PDT 497 
PDT 498 
PDT 499 
PDT 500 
PDT 501 
PDT 502 
PDT 503 
PDT 504 
PDT 505 
PDT 506 
PDT 507 
PDT 508 
PDT 509 
PDT 510 
PDT 511 
PDT 512 
PDT 513 
PDT 514 
PDT 515 
PDT 516 
PDT 517 
PDT 518 
PDT 519 
PDT 520 
PDT 521 
PDT 522 
PDT 523 
PDT 524 
PDT 525 
PDT 526 
PDT 527 
PDT 528 
PDT 529 
PDT 530 
PDT 531 



203 



DZEROl I I) = 0.033333 

OZERO(II) = 1./.000UU4 * DZEROl I I )/. 995 
PINT! 1 I ) = 1000. + RNUM * 4000. 

FVF (III = 1.1 + RNUM * .4 
GO TO 675 

664 RESORS (II) = (263. + RNUM * 560. I » 10000. 
LESFAC (III = RESORS (II) * .000003 

DZEROl I I I = 0.034167 

QZFRO(II) = 1 ./. 000006 * DZFRO ( I I I / . 995 
PINT! II I = 1000. + RNUM * 4000. 

FVF ( I I I = 1.1 + RNUM » .4 
GO TO 675 

665 RESORS! II) = (120. + RNUM * 116.) * 10u00. 
LESFAC (II) = RESORS (II) * .000006 

DZEROl II) = 0.035 

QZERO(II) = 1 ./. 000012 * DZEROl I I )/. 995 
PINT! II) = 1000. + RNUM * 4000. 

FV F ( II) = 1.1 + RNUM * .4 
GO TO 675 

666 RESORS (II) = (58.4 + RNUM * 61.6) * 10000, 
LESFAC! II) = RESORS! I I ) * .000009 

DZEROl II) = 0.035833 

QZERO(II) = 1 . / . OoOOl 8 * DZEROl I I )/. 995 
PI NT ( I I ) = 1000. + RNUM * 4000. 

I-VF (II) = 1.1 + RNUM * .4 
GO TO 675 

667 RESORS (III = (41.2 + RNUM * 17.2) * 10000. 
LESFAC(II) = RESORS ( I I ) * .0000i2 

DZEROl II) = 0.036667 

QZERO(II) = 1./. 000024 * DZERO I I I ) / . 995 
P I NT (II) = 1000. + RNUM * 4000. 

FVF (II) = 1.1 + RNUM * .4 
GO TO 675 

668 RESORS (II) = (17.15 + RNUM * 24.05) * 10000. 
LESFAC! II) = RESORS I I I ) * .0000137 

DZEROl I I ) = 0.0375 

QZEROIII) = 1./. 0000274 * DZERO I I I )/. 995 
PINT! II) = 1000. + RNUM * 4000. 

FVF ( II) = 1.1 + RNUM * .4 
GO TO 675 

669 RESORS (II) = (10.3 + RNUM * 7.12) * 10000. 
LESFAC! I I) = RESORS (II) » .0000256 
DZEROl I I ) = 0.038333 

QZERO(II) = 1./. 0000512 * DZERO ( I I ) / . 995 
P I NT (II) ■= 1000. + RNUM * 4000. 

FVF ( II) = 1.1 + RNUM * .4 
GO TO 675 

670 RESORS (II) = (3.2 + RNUM * 7.1) * 10000. 
LESFAC(II) = RESORS! II) * .000035 
DZEROl I I ) = 0.039167 

QZEROIII) = 1./. 000070 * DZEROl I I )/. 995 
P I NT ( I I ) = 1000. + RNUM * 4000. 

FVF ( II) = 1.1 + RNUM » .4 
GO TO 675 

671 RESORS (II) = (1.76 + RNUM * 1.44) * 100C0. 
LESFAC! I I) = RESORS! II) » .00008 

DZEROl II) =0.04 

OZERO(II) = 1./. 00016 * DZEROl I I )/. 995 
PI NT ( I I ) = 1000. + RNUM » 4000. 

FVF (II) = 1.1 + RNUM * .4 
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675 


CALL RANDNO(RNUM) 
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WELNUM(L ASTNM* 1 ) = II 
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WELNUMI LA5TNM*2 ) = RNUM 
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LAST NM = LASTNM + 1 
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LESFAC(II) = LESFAC(II) - RNUM 
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K = I 
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HOLD2 = OZFRCMII) * RNUM 
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598 




OILFAC = (HOLD2 - HOLD2/EXP ( DZERO ( I I) ) ) /2 • 0 
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599 




PI = OILFAC/I (PlNTtll ) - PINTII I)/EXP(DZERO( I I) * 1. 


4) ) / 2 • 0 ) 
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CALL RANDNO(RNUM) 
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VISCTY(II) - 0.1 ♦ 2U. * RNUM 
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CALL RANDNO(RNUM) 






PDT 


603 




GORINT(II) = 1000. * RNUM 
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672 


PAYOUT = 7 .08 * P I / ( VISCTYI I I) * FVF(II) * 7. 


6) 
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IF (PAYOUT. LT. 0.05. AND. VISCTY( II ).GT. 2.0) GO 


TO 673 
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GO TO 6 7 A 
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673 


V I SC T Y ( I I ) = V I SC T Y ( I I ) - . 1 
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GO TO 672 
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674 


*RI TE (6*1109) JJ*K*0IL *.H0LD2*PINT ( I I ) * P I * V I SC T Y ( I I > 


*FVF( I I ) 
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610 




NWFLLS( II) - 1 
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611 




DRILCS(II) = DRILCS(II) + DRINTG 
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612 




CASH ( I ) = CASH ( I ) - CASHFT * DR T ANG 






* PDT 


613 




AC CPA T l I ) = ACCPAY(I) +• (1.0 - CASHFT) * DRTANG 
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6 14 




TANG (II) = TANGtll; + DRTANG 
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615 




EOCOSMII) = EGCOST (II) + UR T ANG 
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6 76 


X •= N a £ L L S ( I I ) 
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617 




DO 677 < - 1*4 
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618 




IF ( REO c RC f i • K I .EO. T EMP ) T 0 6b p 
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6 19 




IF tREQACDf T *<) .EO.TFMP) GO T 0 686 






°D T 


620 


677 


C 0 N T I i “ 






PD T 


621 




GO TC 632 






PUT 


622 


6? 5 


RF OF *C ( *. .< } - w i .? 
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623 




If- (.so;;; .\l.3 J.OR.NOM I) .NE.hJ ) GO to 667 
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no i 1 1 ) - *;o( : * ; - 3 
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CALL ran UNO K > 
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6 26 




IF ( RNUM . L : . r\C r AC ) GO TO c 8 7 
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07CR0 (in - OZEaCIII) < F«FLO* 
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ozERCfii: ^ ozFRonn * decln 
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Z - X - FRCCOS 
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<OU\T = KGUN* + 1 
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631 




IF KOUN'.FO. ; ) WRITE (6*1100) I 






PDT 


632 




* r i t e ; 6 * 1 1 o a ) ; ; 
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WRITE ( 6 * 1 1 w 5 ) X* 2 
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GO TO 631 
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687 


tANDO(I) - EANDD( I) *► FRCCOS 
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<OUNT = <0uNT + 1 




» 
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637 




IF ( <OU.NT.lO. 1 ) vwRITE ( 6 * 1 luO ) I 
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write (6*uoa) i; 
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WRITE (6*1110) FRCCOS 
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GO TO 63? 




. 
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641 


686 


RF.QACD( 1*0 = 0.0 
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642 




IF ( NO (II) .LE.30) GO TO 688 
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643 




N0( I I) = NO (III - 10 






< PDT 


644 




CALL RANDNO(RM)M) 
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IF (RNUM.LT.ACDFAC ) GO TO 688 
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QZERO(II) = OZERO(II) * ACFlOW 
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DZERO(II) = DZERO(II) » DECLN 
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Z = X * ACDCOS 
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KOUNT * KOUNT + 1 
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IF (KOUNT.EQ.l) WRITE (6*1100) I 
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WRITE (6.1106) II 
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WRITE (6.1107) X* Z 
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GO TO 631 
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688 


EANDD(I) = EANDD(I) + ACDCOS 




PDT 


655 




KOUNT = KOUNT + 1 
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IF I XOUNT . EO . 1 ) WRITE (6.1100) I 
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WRITE (6.1106) II 
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WRITE (6.1111) ACDCOS 
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GO TO 632 
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690 


REGPMPI I »K) =0.0 
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661 




IF IOILFAC.GE.OILALW) GO TO 632 
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IF I NO ( I I ) • L E • 1 5 ) GO TO 632 
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QZERO(II) = QZERO(II) * PMFLOW 
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DZERO(II) = DZERO(II) * DECLN 
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NO (II) = 15 
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Z = X * PMPCOS 




PDT 


667 




VC FAC T ( I I ) = VCFACT( II) * 1.1 
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KOUNT = KOUNT + 1 
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IF (KOUNT. EQ. 1) WRITE (6.1100) I 
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WRITE (6.1112) I I * X. Z 
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GO TO 631 ' 
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691 


REOSEC ( I .<) = 0.0 
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673 




IF (OILFAC.GE.OILALW) GO TO 632 
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674 




IF ( NO (II) .EO.O ) GO TO 63? 
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OZEROMI) = OZ FRO (II) * SRFLOW 
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DZFRO ( I I ) = DZ C RO ( I I ) * .9 




°D T 


677 




VCFACT(II) = VCFACTtri) * 1.3 


. 
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678 




Z = X * SECCOS 
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KOUNT = KOUN T + 1 
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680 




IF ( KOUN T . EQ • 1 ) WRITE (6.1100) I 
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6 51 




NO ( II ) = 0 
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682 




WRITE (6.1113) I I , Z 
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6t>3 


631 


tANDD( I ) = FANDOM) + Z * 0.4 




■ -*0 T 


664 




Y = Z * 0.6 
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685 




TANG ( II) = T A N G ( 11) ♦ Y 




PD t 


086 




CASH(t) = CASH ( I ) - Y * cashft 
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687 




AC C-^A v ( I ) = ACC PA Y ( I ) + (1. - CASHFT) * Y 
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6S0 




EQCOST(II) = ECCGS7 ( I 1 } ♦ Y 
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6 o9 


63? 


MESES = PFSES 1 
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690 


**** COMPUTE TOTAL REVENUE. kO v ALT!E5 ANO GROSS 


INCOYE. 


PDT 


691 




REVNUE(II) 0 1 L P R D ( I I ) * OPR ICE + GASPRD(II) 


* gprice 
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ROYLTY ( I I y = ROY L * REVMJE ill' 
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693 




GROSS (II) = REVNU C (II) - RGYL~Y(II) 
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+ + ** CHECK TO SEE IF PLAYER HAS RENEWED EOU I PYENT ON LEASE. 
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DO 604 < - 1.8 
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696 




IF ( RENEW ( I .K.l ) .LE.0.01 ) GO TO 608 
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N = RENEW ( 1 . < * 1 ) 
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698 




IF (N. EO .LESSEF ( I * J) ) GO TO 605 


0 


POT 


699 


604 


CONT INUE 
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700 




GO TO 608 
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701 


606 


FACTOR = ( EQCOST (II) - TANG( 1 I ) ) /RENEW ( I .< .2 ) 
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702 




IF (FACTOR. LT.O. 75 ) FACTOR = 0.75 




* PDT 


703 




IF (FACTOR. GT.20. OT FACTOR = 20.0 
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704 




TANG(II) = T A NG (II) + RENEW ( I *K .2 ) 
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705 




IF ( EQCOST ( II ) .L T . TANG (II)) EOCOST(II) = T ANG (II) 
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706 




IF ( lELECTdl J.GT.3I I ELEC T ( I I ) = l 
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707 




CASH ( I ) = CASH ( I ) - RENEW(I,K.2) * CASHFT 
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708 




ACCPAY(I) * ACCPAY(I) + RENEWM.K.2) * (1. - 


CASHFT ) 
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709 




if i factor .gt • i . 0 j go to 607 
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710 




VCFACT(II) = VCFACT(II) * factor 
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711 




D 




?.06 



EQAGE ( III = 0.0 POT 

EQLIFE(II) = EOL I KF ( I I I/FACTOR POT 

GO TO 608 POT 

607 EOL I F E ( I I ) = EOLIFF(II) + EO AGE ( I I ) /FAC TOR POT 

608 TEMP = NWELLS (II) * 10 POT 

TOTHRS = TOTHRS + TEMP PDT 

VAR = VCFACT III) * EXP ( EOAGE (II)/ EOL I F E ( I I H PDT 

OPCOST(II) = XLNGTH * TEMP * < PAY < I ) + EMPBEN ( I ) ) ♦ VAR * PDT 

1 OILPRDI II) PDT 

IF (TANG( I I ) .LE. 0.0. OR. EOAGE ( I I ) .GE.CQL Ir ( I I ) ) GO TO 616 .PDT 

C **** CHECK TO SEE IF PLAYER DESIRES TO CHANGE OlPRECIATION METHOD. PDT 

DO 610 K = 1*8 PDT 

IF INELECT ( I .<*1 ) .EO. I I ) GO TO 611 POT 

610 CONMM'JF . . POT 

GO TO 6]? PDT 

611 IF (IcLFCT(II).EQ.O) I ELECT ( I I ) = N ELEC T < I * < . 2 ) POT. 

IF ( IFLECM I I ) .EO.O) GO To 616 POT 

IF (NELECT ( I ,<,2 ) .EO. IELECT ( I I ) ) GO TO 612 PDT 

IF I \ELECT (,!*<*< ) . EO. 1 .AND. I ELECT ( I I ) • EQ.2 ) GO TO 620 POT 

PEN0EPC.2! = PlNDEP ( I * 2 ) + FINE ‘ PDT 

PC NOE P (1*1) = II ‘ POT 

612 IF ( ’ELECT ( I I ) .EO.O) GO TO 616 PDT 

IF ( lELECTCI I.EO.l) GO TO 614 PDT 

IF ( I ELECT ( I I ) . EO. 2 ) GO T 0 t> 1 5 PDT 

IF ( IELFCT ( I i ) .GT. 33 GO TO 609 PDT 

TEMP = 0.0 . PDT 

LIFE = FOLIFEI I I ) PDT 

DO 6 AO K = 1*LIFE PDT 

X - < ' PDT 

64G TEMP = TEMP X PDT 

X * EQAGE( I I )+ 1.0 PDT 

IF (EOAGF( I I ) .LE.0.01 ) X = 0.0 PDT 

DO 641 K = 1 .LENGTH PDT 

DEPREC(II) = DEPREC(II) + ( EOL I FE (III - X)/TEMP * EOCOST(II) PD T 

641 X = X + 1.0 ' PDT 

GO TO 616 PDT 

620 IELECT (II) = 1 PDT 

614 DEPRECt l I ) = TANG( I I )/EOLIFE( I I) PDT 

IELECT* II) = DEPREC(II) * PDT 

GO TO 616 • PDT 

609 DEPREC( I I ) = I ELECT (II) PDT 

GO TO 616 ' PDT 

C **** COMPUTE DEPRECIATION BY THE DECLINING BALANCE METHOD. PDT 

615 DRATE = 24 ./EOL I FE ( I I ) PDT 

IF (MESES.EQ.O) GO TO 613 PDT 

TEMP = MESES/12 PDT 

TEMP = EOCOST (II) * (1.0 - DRATE ) ** TEMP PDT 

GO TO 619 PDT 

613 TEMP = T ANG ( I I ) PDT 

619 DEPREC(II) = DR A T F * TEMP * TIMFAC PDT 

616 EOAGE (II) = EOAGE ( I I ) + XLNGTH POT 

TANG (II) = T ANG (II) - DEPRF.C(II) POT 

C **** COMPUTE NET BEFORE DEPLETION. PDT 

TEMP = GROSS ( I I ) - XLOSS(II) - DEPREC(II) - DRILCS(II) -CPC03T ( II ) PD T 
DRILL = DRILL ♦ OR I LCS f I I ) POT 

C #*#* COMPUTE COST DEPLETION. PDT 

H0LD2 = INTANG(II) * 0 I LPRD ( I I ) /RESORS < II) - PDT 

RESORS (II) = RESORS (II) - OILPRD(II) PDT 

C **** COMPUTE PERCENTAGE DEPLETION. PDT 

IF (TEMP.LE.H0LD2) GO TO 617 PDT 
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PERDPL = 0.275 * GROSS (II) POT 

IF (PERDPL. GT .( 0.5 * TEMP)) PERDPL = 0.5 * TEMP POT 

IF (PERDPL. GT. HOLD? ) DFPLE T ( ! I ) = PERDPL * PDT 

IF (PERDPL. LE.H0LD2) OEPLET(II) = H0LD2 PDT 

GO TO 623 PDT 

617 DEPLET(II) = H0LD2 1 PDT 

623 BTXNET (II) = TEM° - DEPLET(II) PDT 

I N TANG (II) = I NTANG ( ( I ) - DCPLET(Il) PDT 

IF ( INTANGl I I ) .LT.O.O) ADD = ADD - INTANG! I I ) PDT 

IF ( I M T ANG (II ) • L 7 • 0 • 0 ) I NT ANG (II) = 0.0 PDT 

C **** COMPANY ACCOJN 7 1 NG. PDT 

621 TO T REV = TOTREV + REVN'JE(II) PDT 

TOTOIL = TOTOIL OILPRD(II) ’ PDT 

TOTGAS = TOTGAS + GASPRD(II) PDT 

TOTG^O - TOTGPO + GROSS £ ! I ) PDT 

TOTRYL = TOTRYL + ROYLTY(II) PDT 

TOT QPC = TOTOPC ♦ 0PC05TMI) PDT 

TO TO PR = TOTOPR + DEPRlC(II) PDT 

TOT UPi_ - TOTDPL ♦ DEPLET (II) PDT 

TOT T AN = 7 C T T A \ + T ANG (II) PDT 

TO TINT = TOT I NT + I NT ANG (II) PDT 

OPCOS7 (II) = OPCOS Till) ♦ DRILCS(II) PDT 

602 CONTINUE PDT 

MESES = ITFMP ♦ LENGTH PDT 

IF (RFORNOt I ) .LT.O.l ) GO TO 706 PDT 

TEMP = PAYCAP(I) ♦ RTEARN(I) PDT 

IF (RONDS! I ) .GF. TEMPI REO«ND(I) = 0.0 PDT 

IF (BONDS! I ) .LT .TEMP) TEMP = TEMP - BONDS ( I ) PDT 

IF ( TEMP .GF.REQBND ( I ) ) GO Tu 706 PDT 

REQRND ( I ) = TEMP , PDT 

706 DIVREC = DVRATc * INVEST ( I ) * T IMFAC PDT 

INTPAY = ( ST LOAN ( I ) * STRATE + BONDS(I) * BDRATE ) * T IMFAC PDT 

IF (GAINLT ( I ) .GT.XLOSLT ( I ) ) GAINLT(I) = GAlNLT(I) - XLOSLT(I) PDT 

IF (GAINLT ( I ) .GT.XLOSLT ( I ) ) XLOSLT(I) = 0.0 PDT 

IF (GAINLT ( I ) .LE.XLOSLT ( I ) ) XLOSLT(I) = XLOSLT(I) -GAINLTU) PDT 

IF (GAINLTI I ) .LE.XLOSLT ( I) ) GAINLT(I) = 0.0 PDT 

CPGAIN = GAINLT(I) ♦ OTHINC(I) PDT 

CPLOSS = XLOSLT(I) ♦ OTHLOS(I) PDT 

CASH ( I ) = CASH ( I ) ♦ DIVREC - INTPAY + TOTREV * C ASHFT PDT 

ACCREC ( I ) = ACCREC(I) + TOTREV * (1. - CASHFT ) PDT 

DIVPAY = DIVDND(I) * SHARES! I) PDT 

XDRIL = DRILL * CASHFT PDT 

ACCPAY(I) = ACCPAY(I) + DRILL * (1. - CASHFT) PDT 

PENLTY = PENSEL (1*2) + PENRVTU.2) + PENABD(It2) ♦ PENDEP(I»2) PDT 
REDEEM = BONDS! I) * TIKFAC * .05 PDT 

ACCPAY ! I ) = ACCPAY(I) ♦ EANDD! I ) * (1. - CASHFT) PDT 

CASH ( I ) = CASH! I) - TOTRYL - DELAYR - XDRIL - TOTOPC - PDT 

1 OPRES(I) - AODCOSU) - REDEEM - EANDD l I ) * CASHFT - PENLTY PDT 

INVEST! I) = INVEST(I) + REOINV(I) PDT 

RONDS! I) = RONDS! I) ♦ REOBND!!) - REDEEM PDT 

ADMIN = ASSETS! I) * .02 PDT 

IF (ORCARY( I ) .LE.O.U) GO TO 707 PDT 

X * ADMIN * ORCARY( I J/ORBASE * 0.1 PDT 

IF (X.GT .ADM1N*0.5 ) X = ADMIN * 0.5 PDT 

ADMIN = ADMIN - X PDT 

707 IF (LENGTH. EO.O) ADMIN = 0.0 PDT 

ORCARY(I) = ORCARY(I) 4. OPRES(I) PDT 

CASH* I I * CASH! I) - REOINVtl) + REQRND! I) + REOLNS(I) - ADMIN PDT 

TOTOPE = TOTRYL ♦ DELAYR ♦ DRILL ♦ TOTOPC + TOTDPR + TOTDPL PDT 

1 ♦ ABDCOS ! I ) PDT 
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OPNET = TOTREV - TOTOPE ' PDT 

TOTINC = CPGAIN + DIVREC POT 

OTHEXP = 1NTPAY + ADMIN ♦ EANDD(I) + OPRES(I) + CPLOSS . POT 

HOLD 1 = 0.85 * DIVREC POT 

PRETAX = OPNET + TOTINC - OTHEXP - HOLD 1 - GAINLT(l) POT 

STATAX = STAXR * TOTGRO PDT 

FEDTAX - FTAXR » (PRETAX - STATAX) t POT 

IE (PRETAX-STaTAX.lT.O.O) FFOTAX = 0,0 ‘ POT 

IF (PRETAX-STATAX.LT.O.0) OTHLOMI) = OThLOS(I) + ABS (PRETAX - PDT 
1 STATAX) POT 

TAXLTG = • ? 5 * GAINLT(I) POT 

CASH ( I ) = CASH ( I ) - STATAX - FEDTAX - TAXLTG PDT 

NETINC(I) = PRETAX - STATAX - FEDTAX - TAXLTG + GAINLT(I) + HOLD 1 POT 
1 ♦ ADD * X 7 E M 3 ( I ) POT 

HCL02 = RTEARN! I > POT 

R T E A ft N ( ! ) = RTEARN(I) ♦ NETINC(l) - PENLTY - DIVPAY POT 

IF (^r.SFS.EO.C ) GO T 0 709 PDT 

IF (MQJOTE! 1 j .LT.1.0) MOJOTE(I) = 1.0 PDT 

.MO JOT E ( I J - MOUOTFU) - KOUOTE(I) * (D1V9AS - D I VDND ( I ) ) /D I VBAS * PDT 

1 0U0TF7 PDT 

MOLiOTF(I) = MQUOTE(l) + RTEARN ( 1 ) - H0LD2 /RT E ARN ( I) * MOUOTE(I) PDT 
IF ( MQtJO TE(I).LT.l.U) MOUOTEC) = 1.0 PDT 

709 RIS’OX = SOLOS T ( I ) * MOJOTE(I) PDT 

PAYCAP(I) = PAVCAP(I) + P I STOX POT 

CASH ( I ) = CASH ( I ) + B I STOX PDT 

SHARES ( i ) = SHARES! I) + SOLDST ( I) PDT 

IF ( SOLDST ( I ) .GT .v, .0 ) GO TO 730 PDT 

SELL - O.u ' PDT 

BISTOX = ABS(RISTOX) . PDT 

GO TO 731 PDT 

730 SELL = RI3T0X PDT 

BISTOX = o.O • PDT 

731 EQUITY = NETlNC(I) - PENLTY - OIVPAY + SELL - BISTOX PDT 

IF ( CASH ( I ) .GE.0.0 ) GO TO 703 PDT 

EMFRG = ARS ( C ASH ( I ) ) * 1.1 POT 

CASH ( I ) = 0.0 PDT 

703 STLOAN(I) = STLOAN(I) + REOLNSCII + EMERG PDT 

ASSETS(I) = CASH ( I ) ♦ ACCREC(I) + TOTTAN + TOTINT + INVEST(l) PDT 

740 T0TL1B = ACCPAY(I) + STLOAN(I) + BONDS ( I ) + PAYCAP ( I ) + RTEARN ( I J PDT 
IF (A BS (ASSETS! I J-TOTLIB) .GT .1.0) GO TO 741 PDT 

742 BOOX = ( PAYCAP ( I ) + RTEARN! I )) /SHARES! I ) PDT 

DO 601 J = l.NCOPYS PDT 

WRITE (6*1) PDT 

WRITE (6.1401) PDT 

WRITE (6.3) PDT 

WRITE (6*1402) (LEASE(X). LE ASE ( X +2 8 ) . X=l*28) PDT 

WRITE (6*1) PDT 

WRITE (6.1501) I. MONTH* NYEAR PDT 

DO 622 X = 1 ♦ MA XOWN ♦ 4 PDT 

Ml = LESSEE! I.X) PDT 

M2 = LESSEE! I .X + l ) PDT 

M3 = LESSEE ( I.X+2) PDT 

M4 = LESSEE! I *X*3) PDT 

WRITE (6.1502) Ml. M2. M3* M4 PDT 

IF (Ml.LE.O) Ml = 1 PDT 

IF (M2.LE.0) M2 = 1 PDT 

IF (M3.LE.0) M3 = 1 PDT 

IF (M4.LE.0) M4 = 1 PDT 

WRITE (6.1503) OILPRD(Ml). 01LPRD(M2). 0ILPRD(M3). 01LPRD(M4) PDT 

WRITE (6 *1504) GASPRO(Ml). GASPRD (M2 ) ♦ GASPRD (M3 ) ♦ GASPRD ( M4 ) PDT 



832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

8 43 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 
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WRITE 


( 6 


1505 ) 


REVMUE (Ml) * REVNUE (M2), REVNUE ( M3 ) * 


REVNUE ( M4 ) 


POT 


892 


WRITE 


(6 


1506) 


ROYLTY(Ml), R 0 Y L T Y (M2 ) * RO YL T Y ( M3 ) * 


ROYLT Y ( M4 ) 


PDT 


893 


WRITE 


( 6 


1507 ) 


GROSS (Ml)* GROSSt M2 ) * GR0SS(M3)* GR0SS(M4) 


POT 


894 


WRITE 


( 6 


1508 ) 


OPCObTIMl)* OPCOST ( M2 ) * OPCOST (M3), 


OPCOST (N 4) 


PDT 


895 


WRITE 


( 6 


1509 ) 


DEPKECIM1), DLPREC ( M2 ) * ULPREC(M3), 


DEPRtC ( M4 ) 


POT 


696 


*RITE 


(6 


1510 ) 


OEPLET ( M 1 ) , OEPLET (M2)* DL'PLET(M3)* 


OEPLET ( M4 ) 


* POT 


897 


WRITE 


(6 


1511 ) 


0TX.NET (Ml) * 0TXNET (M2 ) * BTXNET(K3) * 


BTXNETIM4) 


PDT 


898 


WRITE 


(6 


1512) 


Na'ELLSIMD* N W E L L 5 ( M 2 ) * NWELLS ( M3 ) * 


NWELLS (^4) 


PDT 


899 


622 CONTINUE 








POT 


900 


WRITE 


(6 


1 ) 




• 


PDT 


901 


WRITE 


(6 


1600) 


I* MONTH, NYF.AR 




POT 


902 


WRITE 


( 6 


2 ) 






POT- 


903 


WRITE 


(6 


1601 ) 






POT 


904 


WRITE 


(6 


1602 ) 


TOTREV 




PDT 


905 


WRITE 


( 6 


1603) 


TOTREV * CASH ( I ) 




POT 


906 


WRITE 


( 6 


1604 ) 


ACCREC ( I ) 




PQ r 


907 


WRITE 


( 6 


lb 05 ) 


tottan 




PD t 


908 


WRITE 


( 6 


1607) 


rOTRYL* TOT I NT 




PDT 


909 


WR I T E 


(6 


16^8) 


DEL AYR , INVEST! I*) 




PDT 


910 


WRITE 


(6 


1609 ) 


DRILL* ASSETS 1 I ) 




PDT 


911 


WRITE 


( 6 


1610) 


r OTO D C 




PDT 


912 


WRITE 


( 6 


1611) 


TOT a 




PDT 


913 


WRITE 


(6 


1612 ) 


TOTDPL 




PDT 


914 


WRITE 


( 6 


1613) 


ARDCOS ( I ) * A C C P A Y ( I ) 




PDT 


915 


WRITE 


(6 


1614/ 


TOTOPE* ST LOAN! I ) 




PDT 


916 


WRITE 


(6 


1615 ) 


OP NET * BONDS! I) 




PDT 


917 


WR ITE 


(6 


1616 ) 


P A v CAP ( I ) 




PDT 


918 


WRITE 


( 6 


1617 ) 


R TEAR.N ( I ) 




PDT 


919 


WRITE 


( 6 


1618 ) 


CPGAIN, TO T L I B 




PDT 


92 0 


*R ITE 


(6 


1619) 


DI VREC 


$ 


PDT 


921 


WR ITE 


( 6 


1620 ) 


TOT INC 




PDT 


922 


WRITE 


( 6 


1621 ) 


Shapes ( I ) 




PDT 


923 


WRITE 


( 6 


1622 ) 


MQUOTE(I)* HOOK 




PDT 


924 


WRITE 


( 6 


1623) 


cploss 




PDT 


925 


WRITE 


( 6 


1624 ) 


I NT PAY 




POT 


926 


WRITE 


( 6 


1625) 


ADMIN 




PDT 


927 


WRITE 


( 6 


1626) 


EANDD! I ) 




PDT 


928 


WRITE 


(6 


1627) 


OPRES(I)* REOLNS ( I ) * REOBNO(I) 




PDT 


929 


WRITE 


( 6 


lo28 ) 


OTHEXP, REOINV(I)* EMERG 




PDT 


930 


• WRITE 


(6 


1629) 


TOTHRS* PAY ( I ) 




POT 


931 


WRITE 


(6 


1630) 


H0LD1* EMPBEN(I) 




POT 


932 


WRITE 


(6 


1631) 


GAINLT ( I ) * STRIKE 




PDT 


933 


WRITE 


(6 


1632 ) 


FEDTAX* XLNGTH 




POT 


934 


write 


(6 


1633) 


STATAX* OWN 




PDT 


935 


WRITE 


(6 


1634 ) 


TAXLTG* OILALW 




POT 


936 


WRITE 


(6 


1635) 


NET I NC ( I ) * GASALW 




POT 


937 


WRITE 


(6 


1641 ) 






POT 


938 


WRITE 


(6 


1636) 


PENLTY* SALE 




POT 


939 


WRITE 


(6 


1637) 


DIVDND(I)* 0 I VP AY, PAYAVG 




POT 


940 


IF ( SOLDST ( I ) • 


LT.O.U) GO TO 710 




POT 


941 


WRITE 


(6 


*1638 ) 


SOLDST! I ) , SELL* BENAVG 




POT 


942 



GO TO 711 

7 1 U TEMP = ARSI SOLDST ( I ) ) 

SOLDST ( I ) = 0.0 

WR I TE ( 6 * 1638 ) SOLDST(I), SELL* BENAVG 
WR I T E ( 6 * 1639 ) TEMP* RISTOK 
GO TO 712 

711 TEMP = 0.0 
WRITE(6,1639) TEMP, RISTOK 

712 WRITE (6*1640) EQUITY 



POT 943 
POT 944 
POT 945 
POT 946 
POT 947 
POT 948 
PD T 949 
POT 950 
POT 951 
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721 

722 

723 

72<+ 
6 Ji 



WRITE ( 6 « 1 64 1 ) 

WRITE (691641) 

WRITE (6,1641) 

WRITE (6,1641) 

WRITE (6,1641) 

WRITE (6,1660) 

IF (PENSEL ( I ,2 ) .LF.0.01 ) GO TO 721 
WRITE ?6,UwJ) PENSEL (1,1), pENSEL(I, 2» 
IF (PENRVT ( I ,2> .L c .O. Jl ) GO TO 722 
WRITE (6,1001) PE.NRVT ( I , 1 » , PENRVT(I,2> 
IF (PENAPOI I ,2 I .LG. j.OI ) GO TO 72 3 
WR I t E (6 ,1LU2 ) PENa- 301 I , 1 ) , PENAdD(I»2) 
I r (PSNDEPI I ,2.) .LL.u.Ol ' GO TO 724 
a'RI^E I6-1wX3) PE\OE D t I , 1 ' , .PE.NObP ( I , 2 ) 



- net Inc ( i ’/xlngtm 



netinci : 

CO NT I N'JE 

MONTH = vo\t.4 + 1 
IF 'NDGC'G.EC. I ) GC *0 725 
\OEr<S = \O r CKS - 1 
GO ’0 l I 5 

72 3 a R ! T E ( 7 , E ' OR*, n i 
WRITE! 7-12) r'CN 
«.<rc(7. ;i i. 
write; 7 ,:; ) 
l ratest 

w r i t e ; / , i I ) A.V 
aRITEI 7,11) Oil 
1 E0CSF7 

*KITt( 7 ,11 I PiV^COS * ACOCOS , ScCCOo , FR FLOW , ACFLOa , PNFLOW , SKFLOW ,DECLNPD T 
DO 311 I = 1 , N?L A Y ' PGT 

WRITE* 7, 13 i CASH* I ) , ASSETS ( I ) ,ACCREC( I ) ,ACCPAY( I ) , INVEST ( I ) , ?DT 

1 STLOAN ( I ) , BONDS ( I ) ,MGUOTE ( I ) PD7 

WRITE* 7, 13) PAYCAP ( i ) »R TEARN ( I ) , SHARES ( I ) ,ORCARY( I ) ,OTHLOS( I) , PD T 



>1 DECKS 

, \ ' E A R , i_ E N C, T r» , V C S r S , N C O ? Y S , P L A Y , ,v A X 0 W N , L A S T \ K 
[ .N E ♦ OPh I CE ♦ uPR I CE »A6ji\r7 , F T AaK - STA aR , oTiCF AC , VARCOS 
a I Eo*.* *l'E<NF I 7 , iJEiNR Ao , Kv_ A30N ,PAYt3AG,D IVbAS ,uK8ASE, 

:A , ROVL * T ERi v «Sk , 7 cRMoP , o VkA 7 E , 0* T ANo * DR I NTo , h kCCOS 
AL'*',GASAL>v -DRYnCS, CASH FT ,GuOTFT,F RC FAC* ACOFAC* 



POT 
PD T 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PDT 
PD T * 
PDT 
PDT 
PDT 
DQT 
PDT 
PDT 
PDT 
PDT 
PDT 
POT 
PDT 
PDT 
POT 
PDT 
PDT 
PDT 



952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 
966 

969 

970 

971 

972 
9 73 
9 74 
97b 
9 76 
977 
9 76 
979 
9 o 0 

981 

982 

983 
964 



PAY(I), NETlNC(i), EMPREN(I) 


PDT 965 


CONT I NUt 




PDT 966 


WRITE(7,lo)( (LESSEE*! ,K) , K=l,20), I = 1,NPLAY) 


PDT 987 


WRITE*7,16) 


LEASE 


PDT 988 


WRI TE*7,18 ) 


NWELLS 


PDT 989 


WRITE* 7,18) 


NPDATF. 


PDT 990 


WR I TE ( 7 , 2 6 » 


RESORS 


PDT 991 


WRITE* 7,27) 


EOLIFE 


PDT 992 


WRITE* 7,27) 


EOAGE 


PDT 993 


WR I T E ( 7 , 25 ) 


TANG 


PDT 994 


WR I T F ( 7 , 25 ) 


INTANG 


PDT 995 


WRITE* 7,18 ) 


IELECT 


PDT 996 


WR ITE*7,16) 


VCFACT 


PDT 997 


WRITE* 7,25) 


ACRES 


PDT 998 


WRITE* 7,16) 


GEOFAC 


PDT 999 


WRITE* 7,11 ) 


lesfac 


PD T 1000 


WRITE* 7,11 ) 


TIME 


PDT1001 


WR I T E ( 7 ,11 ) 


QZERO 


PDT 1002 


WRITE* 7,29) 


DZERO 


PD T 100 3 


WR I T E ( 7 , 1 8 ) 


NO 


PDT 1004 


WRITE* 7,25) 


RIDMIN 


PD T 1005 


WRITE* 7,9) 


* WELNUM* 1 ,1), 1 = 1 ,1000) 


PDT1006 


WR I TE * 7 , 16 ) 


* WELNUM* I ,2 ) , 1 = 1,1000) 


PDT1007 


W R I T E ( 7 ,25) 


EQCOST 


PD T 1008 


WRITE* 7,25) 


PINT 


PDT1009 


WRITE* 7,11 ) 


VISCTY 


PD T 10 10 


WRITE* 7,16) 


FVF 


PDTlOll 
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er 



C 






WRITE (7*25) GORINT PDT1012 

JUMP = 1 PDT1013 

GO TO 101 PDT101A 

PD T 10 1 5 

luOO FORMAT (1X*32HY0U HAVE ATTEMPTED TO SELL LE ASE * F A . 0 * 82HAN MAYBE OTPDT1016 
1HERS WHICH YOU DO NOT OWN. YOU HAVE BEEN PENALIZED A TOTAL AMOUN TPD T 1 0 1 7 
2 OF S,F9.2/17H FOR THIS ACTION./) PDT1018 

1001 FORMAT (IX* 3 A HYOU HAVE ATTEMPTED TO REVERT LEASE * F4.0 * IX *77HAN MAYPDT1019 

1BE OTHERS WHICH YOU DO NOT OWN. YOU HAVE BEEN PENALIZED A TOTAL. APD T 1 020 
2MOUNT/5H OF S*F9.2*17H FOR THIS ACTION./) * PDT1021 

1002 FORMAT (1X*35HY0U HAVE ATTEMPTED TO ABANDON LEASE * FA . 0 * 1 X * 77HA N MAPDTlO 22 

1 YBE OTHERS which YOU DO NOT OWN. YOU HAVE BEEN PENALIZED A TOTAL PDT10Z3 
2 AMOUNT / 5H Or S*F9.2*17H FOR THIS ACTION./) PD T 1 02 A 

1003 FORMAT (1X.6CHY0U HAVE ATTEMPTED TO MAKE AN UNAUTHOR I ZED ’CHANGE INPDT1025 

1 METHOD FOR COMPUTING DEPREC * 1 uH I AT I ON FOR*F4.Q*18H AND MAYBE OTHEPDT10Z6 
2RS./23H YOU HAVE BEEN FINED S * F 1 0. 0 * 1 6HF0R THIS ACTION.) PDT1027 

liou format ( a3x *a3hlease development report for company number* i a/) pdtio28 

1101 FORMAT ( /A7X*32HDRI LLI.NG REPORT FOR LEASE NUMBER * I A// PDT1029 

1 1 X , 5 HM ON Th * 4 X , 1 2 H W EL L DR I LL ED * A X * 6HS T A TUS * A X , 1 7H I N I T I A L FLOW RATEPDT1030 
2*4X* 16HIN I T I AL ?RE SSUR E * AX * 1 8HPR0DUC T I V IT Y I NDEX * AX *9H V I SCOS I T Y * AXPD TlO 3 1 
3*1 7HF0RM . VOL. FACTOR) PDT1032 

1103 FORMAT ( 1H * I 3 * 3X * I 6 * 7 A * A6 * 7 X * F 1 0 . 0 ) PDT1033 

110A FORMAT ( /AtoX *34HFKACTURING REPORT FOR LEASE NUMBER * I A / ) PD T 1 03 A 

1105 FORMAT (1X*21HT0TAL WcLLS FRACTURED * F5 .C * 3X * 1 6HAT A TOTAL COST OF,PDT1035 

1 F6 • 0 / ) PDT1036 

1106 FORMAT ( /A AX * 3 7HAC I D TREATING REPORT FOR LEASE NUMBER * I A / ) PDT1037 

1107 FORMAT (1X*19HT0TAL WELLS TREATED * F 5 .0 ♦ JX , 1BHAT A TOTAL COST OF* PDT1038 

1 Fo .0 / ) PD T 10 39 

1109 FORMAT ( lH \ I 3*oX* 16* /X* A6*7X*F10.0* 11X*F10.0*9X*F10.2 * 10X*F8.2 * PDTiOAO 

l 8 X * F I 0 . 2 ) PDT10A1 

1110 FORMAT ( 1 X .4 8H0NE WELL WAS FRACTURED AND TESTED AT A COST OF $♦ PD T 1 0 A2 

1 F 1 0 .0 ♦ 5 9H • THE FRACTURE TREATMENT DID NOT IMPROVE WELL PERFORM A NPDT1043 
2CE • / ) PD TlO AA 

1111 FORMAT ( 1 X * 5 1 HONE aELL WAS ACID TREATED AND TESTED AT/ A COST OF S*PDT1045 
1 F10.0*55H. THE ACID TREATMENT DID NOT IMPROVE WELL PERFORMANCE .) PD T 10A6 

1112 FORMAT ( /A3X *AOHPU.MP INSTALLMENT REPORT FOR LEASE NUMBER * I A// PDT10A7 

1 IX* 3 AHPUMPS WERE INSTALLED ON A TOTAL OF*F6.0* PD T 10 A8 

2 27H WELLS AT A TOTAL COST OF $*F10.0) * PDT1QA9 

1113 FORMAT (/1X,57HA SECONDARY RECOVERY SYSTEM WAS INSTALLED ON LEASE PDT1050 

IN JMBER * I A , 2 1H AT A TOTAL COST OF S*F10.0) PDT1051 

111A FORMAT (1H *I3*8X*Io*7X*A6*7X*F10.0*llX*Fl0.0*9X*F10.2) PDT1052 

1401 FORMAT (26X*/9HTHIS IS A LIST OF LEASES BY NUMBER THAT ARE FOR SALPD T1053 
IE PY THE GAME ADMINISTRATOR.) PDT105A 

1A02 FORMAT ( A2 X * I 3 * 47 X * I 3 ) PDT1055 

1501 FORMAT ( 23X *32HLEASE REPORTS FOR COMPANY NUMBER * I A * 3 X * PDT1056 

1 28HFOR PERIOD ENDING WITH MONTH* I 5 ♦ 2X ♦ 6H OF YE AR * I A * 1H . / ) PDT1057 

1502 FORMAT ( 1H * A ( AX * 1 2HLE ASE NUMBER *116)) PDT1058 

1503 FORMAT ( 1H *A(AX,19H0lL PRODUCED (BBLS ) *F9.0 ) ) PDT1059 

1 5o a format (ih *a(ax*19hgas produced (mscf ) *F 9.o ) ) pdtio6o 

1505 FORMAT ( 1H * A ( AX , 1 8HREVENUE EARNED (S)*F10.0)) PDT1061 

1506 format c ih *a( ax* ihhroyalties paid m*Fio#on pdtio62 

1507 FORMAT (1H * A ( AX * 1 6HGR0SS INCOME ( S ) * 2 X * F 1 0 . 0 ) ) PDT1063 

1508 FORMAT ( IH *A(AX*19H0P DRILL COST (S)*F9.0)) PDT106A 

1509 FORMAT C IH ,4(AX*16HDEPRECIATI0N ( * ) *2X ,F 10.0 ) ) PDT1065 

1510 FORMAT ( IH ,A(AX, 13HDEPLET ION ( $ ) * 5 X , F 1 0 . 0 ) ) PDT1066 

1511 FORMAT (IH * A ( AX * 1 8HNET BEFORE TAX ($)*F10.U)) PDT1067 

1512 FORMAT ( IH *A( AX* 15H*ELLS PRODUC I NG * 3X * I 10 ) / ) PDT1068 

1600 FORMAT ( 1 9 X * A 1 HF IN ANC I A L STATUS SHEET FOR COMPANY NUMBER * I 3 *3 AH FPDT1069 

10R THE PERIOD ENDING WITH MONTH*I3*9H OF X E A R * I 3 ) PDT1070 

1601 FORMAT ( 25X * 16H INCOME S T AT EMEN T * 2 AX * 1 H I * 2 7X * 1 3HB AL ANCE SHEET /65X ♦ PDT1071 
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1 1H I /2 5X *1 6HQPERA T I NG I NCQME *24X*1HI * 3 0X *6HAS3ET S/65X*1HI) 

1602 FORMAT ( IX *40HREVENoE f ROM SALE OF OIL A NO NATURAL GAS*11X*1H$* 

1 F1I.0.2H I) 

1603 FORMAT ( 7X * 22HTOT AL OPERATING INCOME *24X*F11 *0 *2H I, 

1 3X * 1 2H CASH ON HAND * 36X * 1HS *F1 1 .0 } 

160A FORMAT ( 65X ♦ 1HI * 

1 3X * 19HACC0UNT5 RECE I VABLE * 30X *F1 1 . 0 ) 

1605 FORMAT ( 24X * 1 6H0PERAT I NG EXPENSES *23X * 1HI , 

1 3X * 18HTANGIHLE EQUIPMENT *31X*F11 *0) 

1607 FORMAT (IX* 1 AHROYALT I ES PA I D * 3 SX * F 1 1 . 0 * 2H 1, 

1 3X *35H INTANGIBLE LEASE INVESTMENT AT COST * 1 AX .FI 1 .0 ) 

1608 FORMAT (1X*I3HDELAY RE N TALS * 39X * F 1 1 .0 * 2h I* 

1 3X* 19H0UTSIDE INVESTMENTS* 3 uX .Fll.O) 

1609 FORMAT (IX* 1 AHOR 3 L L I NG COSTS * 38X * FI 1 .0 * 2H I* 

1 9X * 12HT0T AL ASSET S* 3 1 X * r‘l 1 . 0 ) 

161w FORMA T ( 1 X * 1 5 HOPE RAT I NG COST G * 3 7X * F 1 i • 0 * 2H I) 

1611 FORMAT ( iX*:2hOEPREClATION*AOX*ni.O,2H I* 

1 ? ° X * 1 1 H L ! AH I L I t [ »-• 5 j 

161? FORMAT ( 1 X * 9 H 0 E P L E " r I ON • A 3X • F 1 ! • 0 * 2 H I) 

1613 FORMAT ( IX * 1 VhAoAMDO'lMENT COST 3 *3 5\ * F 1 1 . 0 * 2H I* 

1 3 X * 1 6 H A C CC-J NTS P A V A3LE * 33X , F 1 1 . C i 
161 A FORMAT ( 7 a > 2 A H T j T A L OPE RAT I i«G EXPENSES * 22 X ♦ F 1 1 . O * 2H I* 

1 3 X • a 6 HSr*C R 7 TERM, LOANS * 3 3 X * ■" 1 1 *0 ) 

1615 r'ORMA T ( IX *20: l.\c T OPERATING INCON.c * 3 IX * ini , F 1 1 . 0 *2 H I* 

1 3X *5noCNS5 *hAX *F 1 i »U ) 

1616 FORMAT t 6 5 X • 1 H I * 

1 3 X j 1 5 HP A * i) I\ CAP * 7 AL * 3 A X * F 1 1 • 0 ) 

1617 FORMAT i 27 a * l?r-*OT*r-.ER INCOME* 26 X *1 hI * 

1 3X * 17HRETA I NED EARN! NG3 *3 2X *F 1 1 .0 ) 

1613 FORMAT i IX , 1 3HCA? I TAL 6AT.NS*37X *F 1 1 .0* 2H I* ' 

1 9X*17hT0TAL LI AGILITIES -26X.F1 1. )J _ / 

1619 FORMAT ( I X - 1 ohD I V I DE-OS RECE I VED * 3A X * F 1 1 . C * 2H I) 
lo2u FORMAT (7\*1 oH 707AL OTriER I NCOKE * 2o X « F 1 1 • 0 » 2H I) 

1621 FORMAT (65X*1hI * 

1 3X * 3 AHSHARES OF COMMON ST OCX. OUTST AND I NG *2X *F1 0. 

1622 FORMAT (2oX *1AH0THER EXPENSES * 25a , 1H I . 

1 3X*iAH, MARKET QUOTE 3 *r 3 .2 -oX * 1CHB00K V ALuc » 2X * 1HS *F8 . 2 ) 

1623 FORMAT ( IX » 1 AnCAP I TAL LQaSE S * 3 7 a * iHS * F 1 1 • 0 * 2H I) 

1 62 A FORMAT ( IX »13H INTEREST ? A i D * 39X - F 1 1 . J , 2H I) 

1625 FORMAT ( IX *2 3HAQM I N I S7R A 7 I VE OVERHt AD ♦ 29X *F11 *0*2H I* 

1 2 1 X *2 5HDEC I S I OYS AND ENVIRONMENT) 

1626 FORMAT ( IX *2 7HEXPL0RAT ION AND DEVELOPMENT ♦ 25 X , Fl 1 . 0 * 2H I) 

1627 FORMAT ( 1 X * 1 9H0PE R A T I ONS RESEARCH * 3 3X * F 1 1 . 0 * 2H I* 

13X * 1 6H3HQRT TERM LOANS * 5X * 1 HS , F 10 .0 * 2X * 5hB0NDS * 10X * 1HS * F 10 .0 ) 

1628 FORMAT (7X*20HT0TAL OTHER EXPENSES * 26X » F 1 1 . 0 * 2H I, 

13X *16H INVESTMENTS MADE * 6X * F 1 0. 0 *2 X * i 6HEMERGENCY LOANS* *F10.0) 

1629 FORMAT ( 65X * 1HI * 

1 3X*22HLABOR UTILISED ( HOURS ) * 1 X * F9 . 2 * 2X ♦ 1 6HL ABOK RATE/HR. £* 

2 F10.2 ) 

1630 FORMAT (1X*25HLESS DIVIDEND DEDUCT I ONS *27X ♦ F 1 1 . 0 * 2H I* 
l 3X *20HFR I NGE RENFF I T S /HOUR * 2X * F 1 0. 2 ) 

1631 FORMAT { 7X * 1 4HL0NG TERM GA I N * 32X * F 1 1 . 0 * 2H I ♦ 3X * 2 1HPR03 AB I L I T Y OF 
1TRIKE*1X*F10.2> 

1632 FORMAT UX*11HFEDERAL T AX * A 1 X * F 1 1 • 0 * 2H I* 

1 3X*22HPERIOD LENGTH ( MONTHS )* 2X * F8 • 0 ) 

1633 FORMAT <1X*9HSTATE TAX * 4 3X * F 1 1 . 0 * 2H I* 

1 3X*22HNUMRER OF 'LEASES OWNED * 2X » F8 .0 ) 

163A FORMAT (1X*22H7AX ON LONG TERM GA I NS ♦ 3 OX » F 1 1 . 0 * 2H I* 

1 3X*24H0IL ALLOWABLE 3BL S/MONT H * F 8 . 0 ) 

1635 FORMAT (7X*10HNET I NCOME * 3 6X * F 1 1 • 0 * 2H I* 



PDT1072 
PDT10 iy 
P Q T LO 7 4* 
PD7107S 
PDT1076 
PD T 1077 
PD 71076 
PD T 1 079 

pd rioao 

PDT10&1 
PDT1062 ' 
PD TIC 3 3 
PDTiOcA- 
PDT1035 
PDTl0b6« 
PDT1037 
PDT1CS6 
PD T 10 69 
PD T 1090 
PDT109I 
PDT1C92 
PD T 1093 
PDT1094 
P D T * 0 9 5 
PDT1C96 
PDT1097 
PD T i 096 
POT 1099 
PDT11C0 
PDT1101 
PD T1102 
PDT1103 
PDT110A 
PDT i 1 05 
0 JPD T; 106 
PD T 1 1 07 
PDT 1108 
PDTU09 
PDT1110 
PDT1111 
PDTU12 
PDT1113 
PDT11 14 
PDT11 15 
PDT 1116 
PDTil 1 7 
PDT1118 
PDTil 19 
PDT1120 
PDT1121 
PD T 1 1 22 
3PDT1123 
PD T 1 1 24 
PDT1125 
PDT1126 
PDT1127 
PDT1128 
PDT1129 
PD T 1 1 30 
PDT1131 
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1 3X *24HG AS ALLOWABLE MSCF /MONTH »F8. 0 ) PD T 1 1 32 

1636 FORMAT ( IX * 19nP£NALT I ES AND F I NES *3 2X • 1HS * F 1 1 .0 * 2H I» PDT1133 

1 3X * 3 5HNUXBEK Or LEASES AVAILABLE P 0R SALE * I 5X ♦ F 1 0 .0 ) PDT1134 

1637 FORMAT { IX » 1 8HD I V I DEND PER SHARE • IX t 1H* .F10. 2 *4X . 1 5HAX0UNT PAID OOPDT1135 

1T.3X.F11.Q.2H I* PDT1136 

2 3X *2 SHAVE RAGE INDUS T RV WAGE RATE *22X*1H5»F11.2) PDT1137 

1638 FORMAT ( IX , 1 7HC0MY0N STOC< SO^D *3X . F 10 .u .4 X , 1 5HAM0UN I RECE I VED OX »PD T1 138 f 

1 F11.0*2H I . PD T 1 1 39 

2 3X »3oH AVERAGE INOUSTRY FRINGE BENEFIT RATE » 1 3X . F 1 1 .2 ) PDTli^O 

1639 FORMA" ( IX . 1 unS TOCK PURCHASED OX , f 1 G. 0 ♦ A A . 1 5HAMOU.N T PAID OuT*3X» PDT1141 

1 Fll.OfZH I ) PDT11A2 

1640 FORMAT ( 1 A * 3 IHCHANGC IN STOCKHOLDERS- cJJ I TY • 2lX • FI 1 .0 * 2H I) PDT1143 

1641 FORMAT ( 65X * l ri I ) PDT1144 

1650 FORMAT (65I2H - ) /62X . 7HREM ARKS / ) PDT1145 

999 CALL EXIT * PDT1146 

END PDT1147 



SUBROUTINE RANDNO ( RNUM ) 

I = RNUM * 10*0 
1 CONTINUE 

RNUM = (RNUM * 100. + 3.)**? 
X = RNUM * .001 
M = X 
Y = M 

RNUM = X - Y 

J = RNUM * 10.0 

IF (I.EQ.J) GO TO 1 

RETURN 

END 



P0T1148 
PD T 1 1 49 
PD T 1 1 50 
PDT1151 
PDT1152 
PDT1153 
PDT1154 
PDT1155 
PDT1156 
PDT1157 
PDT1158 
PDT1159 
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SAMPLE COMPANY DECISION DECK 
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Derivation of the Equation for the Decline Curve 



The derivation of the decline curve is begun by starting with 

the equation for the slope 1 ' of a curve: 

D _ -dq/dt 



Where : 



D = the slope of the curve. 



Rearranging the equation gives : 
dq 

-D dt » “* . 

Integrating the equation above -within the linits of t = 0 to t = t, 



and q = q Q to q = q fc : 



-Dt 



= In q 



which is 



-Dt = 



In q - In q Q = 



= In 



5t 

<10 



V/hen the exponential of both sides of the equation is taken, the result is 

qt -ot 

— “ = e 
<10 

Rearranging this equation provides the equation desired: 



q, * q e 
^t n o 



-Dt 
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The Derivation of the Equation to Calculate Initial Flow Hate 

The derivation of the equation to calculate the initial flow 
rate when the recoverable reserves and the decline curve are given, 
begins with the equation for the decline curve which is: 

-Dt 



If a low limit for q^ is picked so that: 
q (low lirait) = q 0 X FaCT0R 

Where : 

FACTOR = some small fraction. 

Solving for q^. at the low lirait gives: 
q Q FACTOR = q Q e" Dt 

and by dividing both sides by qQ provides: 

FACTOR = e" Dt , 

The next step is to solve for t at the low lirait which is: 
t * In FA CTOR/-D , • 

The reserves in the reservoir are equal to: 

Reserves = 

Where : 

t = the time at the low lirait. 




Integrating and substituting the value obtained for t results in: 

Reserves = 5 e^ ? *CTCa + q 0 

T 



= q o 

D" 



(1. - FACTOR) 



Solving for qQ gives: 

q = (Reservcos) (D) 
0 (1. - FACTOR) 



! 




